以下数据检索如何表达(SQL语句)请看，急.........

Question

dim sql2 as string
SQLstring = "SELECT ci_cardno FROM cardinfo" 
sql2 =" WhERE ci_cardno ='" & CaNo & "'"
sqlstring=sqlstring+sql2
rst.Open SQLstring, ConnectString, , , adCmdText

Answer 1

rst.Open SQLstring, ConnectString, , , adCmdTable  '打开cardinfo
改成
rst.Open SQLstring, ConnectString, , , adCmdText
另外，用If rst.EOF Then 就可以判断没有记录了。

Answer 2

Dim cnn_temp As ADODB.Connection
Dim rst_temp As ADODB.Recordset
Private Sub Form_Load()
    Set cnn_temp = New ADODB.Connection
    Set rst_temp = New ADODB.Recordset
    With cnn_temp
        .CommandTimeout = 15
        .Provider = "sqloledb"
        .Properties("data source").Value = "abc"    'SQLSERVER数据源名
        .Properties("Initial Catalog").Value = "abcd"  '数据库名
        .Properties("user id").Value = "sa"  '用户名
        .Properties("password").Value = "1234"    '口令
        .Properties("prompt") = adPromptNever
        .Open
    End With
End Sub
Private Sub Command1_Click()
rst_temp.Open "SELECT ci_cardno FROM cardinfo " & _
    "WhERE ci_cardno = '" & CaNo & "'", cnn_temp, adOpenForwardOnly, adLockReadOnly
End Sub

Answer 3

谢谢！我忘了把adCmdTable
改成
adCmdText
了