1.数据库里设置相关字段为主键,用于约束数据重复。设置主键后如 果有数据重复,它会自动提示,不需要写VB代码。2.你要写入TEXT里的值给数据库,用以下的过程即可。Public Function InsertData(name as string,pass as string) On Error Resume Next Set rs = New ADODB.Recordset Set db = New ADODB.Connection db = ConAcc rs.Open "update tb1 set name = '" & name & "',pass = '" & pass & "' where 你的数据限定条件", db, adOpenStatic, adLockReadOnly End Function 这个是过程,你在你要执行的事件过程中调用这个过程即可。希望对你有用。如要帮助别忘记加分给我。我没分了。谢。 InsertData text1.text, text2.text
Set rs = New ADODB.Recordset
Set db = New ADODB.Connection
db = ConAcc
rs.Open "update tb1 set name = '" & name & "',pass = '" & pass & "' where 你的数据限定条件", db, adOpenStatic, adLockReadOnly
End Function
这个是过程,你在你要执行的事件过程中调用这个过程即可。希望对你有用。如要帮助别忘记加分给我。我没分了。谢。
InsertData text1.text, text2.text
db= conacc 'CONACC是你的数据库连接字符串。你应该懂得怎么设置的。