风筝L☆ve
Private Sub Command1_Click()
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=carms;Initial Catalog=carms;Data Source=FICKDCJC04DC6XQ"
cnn.Open
If cnn.State = adStateOpen Then
Set cmd.ActiveConnection = cnn
cmd.CommandText = "update nvip set etime ='" & Trim$(etime.Caption) & " '" & "where car_id='" & Trim$(txtcar_id.Text) & " '"
cmd.Execute
MsgBox "结账成功"
Else
MsgBox "请输入正确的车牌号"
End If
cnn.Close
Set cmd = Nothing
Set cnn = Nothing
End Sub
报错：用户carms登录失败，我用UDL获取的字符串，为什么登陆失败呢？
Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
cnn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=carms;Initial Catalog=carms;Data Source=FICKDCJC04DC6XQ"
cnn.Open
If cnn.State = adStateOpen Then
Set cmd.ActiveConnection = cnn
cmd.CommandText = "update nvip set etime ='" & Trim$(etime.Caption) & " '" & "where car_id='" & Trim$(txtcar_id.Text) & " '"
cmd.Execute
MsgBox "结账成功"
Else
MsgBox "请输入正确的车牌号"
End If
cnn.Close
Set cmd = Nothing
Set cnn = Nothing
End Sub
报错：用户carms登录失败，我用UDL获取的字符串，为什么登陆失败呢？
