Dim conn As ADODB.Connection Dim itemrs As ADODB.Recordset Set conn = New ADODB.Connection Set itemrs = New ADODB.Recordset conn.ConnectionString = "dsn=interbank;uid=qq;pwd=qiqi;" conn.Open itemrs.ActiveConnection = connitemrs.LockType = adLockOptimistic itemrs.CursorType = adOpenKeyset itemrs.Open "qq.main_tab"With itemrs .AddNew .Fields("shzhangno") = Mid(str, 6, 19) .Update End With
你要学习学习。看有关ADO的资料。
Dim Comm As ADODB.Command, Conn As ADODB.Connection Set Comm = New ADODB.Command Set Comm.ActiveConnection = ConnComm.CommandText = "Insert Into TableName (FieldList) Values (ValueList)" Comm.ExecuteComm.CommandText = "Update TableName Set FieldName=NewValue Where ..." Comm.ExecuteComm.CommandText = "Delete TableName Where ..." Comm.Execute Set Comm = Nothing Set Conn = Nothing
select\update\delete\insert into四种语句哟
一时也写不清
Dim itemrs As ADODB.Recordset
Set conn = New ADODB.Connection
Set itemrs = New ADODB.Recordset
conn.ConnectionString = "dsn=interbank;uid=qq;pwd=qiqi;"
conn.Open
itemrs.ActiveConnection = connitemrs.LockType = adLockOptimistic
itemrs.CursorType = adOpenKeyset
itemrs.Open "qq.main_tab"With itemrs
.AddNew
.Fields("shzhangno") = Mid(str, 6, 19)
.Update
End With
Set Comm = New ADODB.Command
Set Comm.ActiveConnection = ConnComm.CommandText = "Insert Into TableName (FieldList) Values (ValueList)"
Comm.ExecuteComm.CommandText = "Update TableName Set FieldName=NewValue Where ..."
Comm.ExecuteComm.CommandText = "Delete TableName Where ..."
Comm.Execute
Set Comm = Nothing
Set Conn = Nothing