Question

VB6.0的 最简单的 把文本框里的文字更新到数据库里，

Answer 1

Public Function ExecuteSQL(strSQL As String) As ADODB.Recordset
On Error GoTo ErrorTary
Dim objConnection As ADODB.Connection
Dim objRecordset As ADODB.Recordset
Dim strArr() As String

Set objConnection = New ADODB.Connection
objConnection.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data source=" & “这里是你的数据库地址"
objConnection.Open
strArr = Split(strSQL)
If InStr("DELETE,INSERT,UPDATE", UCase(strArr(0))) Then
objConnection.Execute strSQL
Else
Set objRecordset = New ADODB.Recordset
objRecordset.Open Trim(strSQL), objConnection, adOpenKeyset, adLockOptimistic
Set ExecuteSQL = objRecordset
End If

Set objConnection = Nothing
Set objRecordset = Nothing
Exit Function
ErrorTary:
Set objConnection = Nothing
Set objRecordset = Nothing
End Function

Private Sub Command_Click()
ExecuteSQL "Update 表名 Set 字段名='" & Text.text &"',字段名= 数据 where 字段名＝相匹配的查询数据"
'Update SQL 语句 你可以百度一下用法
End Sub
但是用的时候必须
工程(P) －> 引用(N) 选择 Microsoft ActiveX Data Objects 2.5 Library

追问

没用啊，按钮更新后数据库还是没改变，能不能简单点我只有把text1.text绑定的数据的修改，能更新到数据库里就行了

追答

暂时还不能 如果没有更新 那么 请你检查 你的SQL语句是否正确
当然 还有一种方法

Dim objRecordSet As ADODB.Recordset
Dim strSQL As String

strSQL = "select * form tabuser where user ='s'" '此处查找数据库中的对应数据
Set objRecordSet = ExecuteSQL(strSQL)
objRecordSet.Fields(2).Value = "ffff" '此处filed中的2是字段的序号,=后的是要更新的数据
objRecordSet.Update '更新

'如果 是添加数据的话
strSQL = "insert into tabuser values(45,'d','d')" '注意了 这条中values 中有几个字段就要几个数据 排列按照字段顺序
Call ExecuteSQL(strSQL)

Answer 2

来句数据库语句就行啦。