关于SQL嵌入VB中的查询。

Question

小弟初学VB，请问各位，如何在VB中插入SQL查询语句，然后将查询到的结果显示出来，我用的是ADO控件。请帮帮忙!

Answer 1

设置一个adodb.connection变量
set rs = connection.execute sql
然后对rs记录集进行显示就行了

Answer 2

之后还要声明变量，如DIM SQL AS STRING
然后就可以写SQL语句了

Answer 3

'M_CONN 是我创建的一个连接  返回值,1 成功 2 错误 0 查询结果为空
Function runsql(rs As ADODB.Recordset, strsql As String)
On Error Resume Next
'MsgBox strsql
  On Error Resume Next
    rs.Open strsql, m_conn, 1, 3
    If Err.Number <> 0 Then
        runsql = 2
        Exit Function
    End If
    If rs.EOF Then
        runsql = 0
        Exit Function
    End If
    runsql = 1End Function

Answer 4

Dim sql As String
sql = "select * from 数据库名字 where  字段名= '" & Trim(Text1.Text) & "' and 字段名='" & Trim(Text2.Text) & "'"
Adodc1.RecordSource = sql
Adodc1.Refresh