VB怎么修改数据库指定单元格里的数据

给你一个例子

Dim Conn As New ADODB.Connection

Dim Rs As New ADODB.Recordset

Rs.Open "SELECT * FROM 报警记录 where " &Te.Tag &"='" &Text1.Text &"'", Conn

If Rs.RecordCount = 0 Then

MsgBox vbCrLf &"“" &Rs.Fields(0) &"”查找失败！", vbInformation, " 提 示"

Rs.Close

Rs.Open "select * from 报警记录", Conn, adOpenStatic, adLockOptimistic

End If

Set DataGrid1.DataSource = Rs

For Each Col In DataGrid1.Columns '修改列表

If Col.DataField = "序号" Or Col.DataField = "备注" Then Col.Visible = False '隐藏不想显示的字段

Next Col

DataGrid1.Columns(11).Caption = "电压"‘替换显示将数据库里的字段

if Rs.Fields(4)="10" then msgbox "数值过低！"'第5（从0开始）个单元格数值

For I = 0 To 14

DataGrid1.Columns(I).Caption = Space(((DataGrid1.Columns(I).Width - Len(DataGrid1.Columns(I).Caption) * 150) \ 2) \ 150) &DataGrid1.Columns(I).Caption '标题居中

DataGrid1.Columns(I).Alignment = dbgCenter

Next

从你这个界面看应该有两种办法实现数据更改。你不提供别的有用信息，只能简单说一下了。

1、用 Data 数据控件连接数据库，直接对数据控件中的数据更新

data1.Recordset.Edit

data1.Recordset("性别")=IIF(Option1.Value=True,"男","女")

data1.Recordset("联系方式")=Trim(Text1)

data1.Recordset("邮编")=Trim(Text2)

data1.Recordset("地址")=Trim(Text3)

data1.RecordSet.Update

2、直接用SQL语句对数据进行更新

"Update 信息表 Set 性别='"+IIF(Option1.Value=True,"男","女")+"', 联系方式='"+Trim(Text1)+"', 邮编='"+Trim(Text2)+"', 地址=‘“+Trim(Text3)+"' WHERE 姓名=’XXX‘”

哎，估计我说复杂了，希望对你有帮助...

---