Option ExplicitPrivate Conn As New ADODB.Connection
Private rs As New ADODB.RecordsetPrivate Sub cmdOk_Click()
Dim Sql As String
Sql = "select * from ProSorts where SortName = " & txtSortName.text
rs.Open Sql, Conn, adOpenKeyset, adLockPessimistic
If rs.EOF = False Then
MsgBox "数据已经存在!"
Else
MsgBox "数据不存在!"
End If
End If
Private Sub Form_Load()
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\DataBase\DBMain.mdb"
'使用客户端数据游标
Conn.CursorLocation = adUseClient
'打开Access的连接
Conn.Open strConn
End Sub
麻烦各位帮我看看这段代码问题出在哪里。我想通过SQL查询符合txtSortName.text的一条数据是否存在于表SortName之中,但是测试了不知为什么就是不行,各位大侠可以帮帮我吗?或者加我QQ 138001655,谢谢大家!感激不尽!
Private rs As New ADODB.RecordsetPrivate Sub cmdOk_Click()
Dim Sql As String
Sql = "select * from ProSorts where SortName = " & txtSortName.text
rs.Open Sql, Conn, adOpenKeyset, adLockPessimistic
If rs.EOF = False Then
MsgBox "数据已经存在!"
Else
MsgBox "数据不存在!"
End If
End If
Private Sub Form_Load()
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\DataBase\DBMain.mdb"
'使用客户端数据游标
Conn.CursorLocation = adUseClient
'打开Access的连接
Conn.Open strConn
End Sub
麻烦各位帮我看看这段代码问题出在哪里。我想通过SQL查询符合txtSortName.text的一条数据是否存在于表SortName之中,但是测试了不知为什么就是不行,各位大侠可以帮帮我吗?或者加我QQ 138001655,谢谢大家!感激不尽!
rs.Open Sql, Conn, adOpenKeyset, adLockPessimistic
If rs.RecordCount > 0 Then '这里改为这样试试下
MsgBox "数据已经存在!"