各位好!!VB远程更新SQL2000数据库(ADO方式)
sADOCall.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=sa;Initial Catalog=JZ02;Data Source=tiger", , , adConnectUnspecified
Dim fRs As New ADODB.Recordset
Dim sCallNO As String
fRs.Open "Select * From Call Order By ID DESC", sADOCall, adOpenStatic, adLockOptimistic, adCmdText
If fRs.EOF Then
sCallNO = 0
ElseIf fRs.Fields("AnswerTime") = "0:00:00" Then
fRs.MoveFirst
fRs!AnswerTime = "00" 'Format(Now, "yyyy-mm-dd hh:mm:ss")
fRs.Update
sCallNO = fRs.Fields("ID").Value
End If
If fRs.State = adStateOpen Then fRs.Close
程序可以运行到frs.movefirst 但提示不能更新数据库!!!