VB中查询语句如何使用

一）操纵数据库，VB必须正确使用SQL结构化查询语句，将其赋值给ADO数据控件的RecordSource属性。

二）拼接SQL结构化查询语句的条件部分的判断语句结构应该是简洁有效。

已将原按钮的Click事件代码修改为能有效给ADO数据控件RecordSource属性，去完成数据查询。

SQL结构化查询语句

结构化查询语言(Structured Query Language)简称SQL(发音：/ˈes kjuː ˈel/ "S-Q-L")，是一种特殊目的的编程语言，是一种数据库查询和程序设计语言，用于存取数据以及查询、更新和管理关系数据库系统；同时也是数据库脚本文件的扩展名。

结构化查询语言是高级的非过程化编程语言，允许用户在高层数据结构上工作。它不要求用户指定对数据的存放方法，也不需要用户了解具体的数据存放方式，所以具有完全不同底层结构的不同数据库系统, 可以使用相同的结构化查询语言作为数据输入与管理的接口。结构化查询语言语句可以嵌套，这使它具有极大的灵活性和强大的功能。

Option Explicit
    Dim strsql As String

Private Sub find_Click()
    If Trim(name_find.Text) <> "" And Trim(phone_find.Text) <> "" Then
        strsql = "select * from phone where " + "电话号码='" & Trim(phone_find.Text) & "'" + " and 姓名='" & Trim(name_find.Text) & "'"
    End If
    Adodc1.RecordSource = strsql
    Debug.Print Adodc1.RecordSource
End Sub

立即窗口显示正确的SQL语句。

Private Sub find_Click()
strsql = ""
If Trim(name_find.Text) <> "" Then

strsql = strsql + " and 姓名='" & Trim(name_find.Text) & "'"

End If
If Trim(phone_find.Text) <> "" Then

strsql = strsql = " and 电话号码='" & Trim(phone_find.Text) & "'"

End If
If strsql = "" Then
Adodc1.RecordSource = "select * from phone"
Adodc1.Refresh
Else
Adodc1.RecordSource = "select * from phone where 1=1 " + strsql
Adodc1.Refresh
End If
End Sub

strsql = strsql = " and 电话号码='" & Trim(phone_find.Text) & "'"

这句有问题

convert