vb access mysql_vb access数据库

展开全部

Private Sub Command1_Click()

Adodc1.RecordSource = "select * from Xpress where InputID='3'" '找到第三列

Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then

Adodc1.Recordset.Fields("DefaultValue").Value = Text1.Text  '将text1的数值输入到该列

'    也可以写成Adodc1.Recordset.Fields(1).Value = Text1.Text

Adodc1.Recordset.Update

End If

Adodc1.RecordSource = "select * from Xpress where InputID='4'" '找到第四列

Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then

Adodc1.Recordset.Fields("DefaultValue").Value = Text2.Text  '将text2的数值送到该列

'    也可以写成Adodc1.Recordset.Fields(1).Value = Text2.Text

Adodc1.Recordset.Update

End If

End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\data.mdb;Persist Security Info=False"

End Sub

通过在Access里增加主键,自动32313133353236313431303231363533e78988e69d8331333262353363编号也能达到你的要求,比如:

Adodc1.RecordSource = "select * from Xpress where 编号=4"代表选定第4行

Adodc1.Recordset.Fields(3).Value表示第4列(0表示第一列,1表示第二列...)