Private Sub Command1_Click()
Dim intcount As Integer
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "dsn=newdb;uid=sa;pwd=sa;database=test"
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Sql = "select * from employee"
rs.Open Sql
rs.AddNew
For intcount = 0 To 4
rs.Fields(intcount) = Trim(Text(intcount))
Next intcount
rs.Update
rs.Close
End Sub
运行程序后 无法进行数据更新 希望高人能帮看看
Dim intcount As Integer
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "dsn=newdb;uid=sa;pwd=sa;database=test"
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Sql = "select * from employee"
rs.Open Sql
rs.AddNew
For intcount = 0 To 4
rs.Fields(intcount) = Trim(Text(intcount))
Next intcount
rs.Update
rs.Close
End Sub
运行程序后 无法进行数据更新 希望高人能帮看看
Dim intcount As Integer
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open "dsn=newdb;uid=sa;pwd=sa;database=test"
conn.execute "insert into employee(...) values(...)"
End Sub
rs.Open Sql,conn, adOpenKeyset, adLockOptimistic