UC知道vb 中使用sql语句时遇到的一个问题
来源：百度知道 编辑：UC知道 时间：2024/05/21 22:42:26
用vb实现一个查询，我写的查询语句如下：
select * from "& combo1.text& " where 型号= '"&text1.text"'", myconn, adOpenDynamic
具体说明：我想在text1中输入型号名称，在combo1中选择具体的表，然后实现查询。但是提示：缺少语句结束
我没看出哪儿错了！
高手指点一下！
顺便贴出其他的代码：
Option Explicit
Private myconn As New ADODB.Connection
Private myrecord As New ADODB.Recordset
Private Sub Combo1_Change()
End Sub
Private Sub Command1_Click()
myrecord.Open "select * from "& combo1.text &" where 型号= '"&text1.text"'", myconn, adOpenDynamic, adLockBatchOptimistic
End Sub
Private Sub Form_Load()
With Combo1
.AddItem "二极管"
.AddItem "三极管"
End With
Set myconn = New ADODB.Connection
Set myrecord = New ADODB.Recordset
myconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\毕业设计\查询系统\sysdata.mdb;Persist Security Info=False
select * from "& combo1.text& " where 型号= '"&text1.text"'", myconn, adOpenDynamic
具体说明：我想在text1中输入型号名称，在combo1中选择具体的表，然后实现查询。但是提示：缺少语句结束
我没看出哪儿错了！
高手指点一下！
顺便贴出其他的代码：
Option Explicit
Private myconn As New ADODB.Connection
Private myrecord As New ADODB.Recordset
Private Sub Combo1_Change()
End Sub
Private Sub Command1_Click()
myrecord.Open "select * from "& combo1.text &" where 型号= '"&text1.text"'", myconn, adOpenDynamic, adLockBatchOptimistic
End Sub
Private Sub Form_Load()
With Combo1
.AddItem "二极管"
.AddItem "三极管"
End With
Set myconn = New ADODB.Connection
Set myrecord = New ADODB.Recordset
myconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\毕业设计\查询系统\sysdata.mdb;Persist Security Info=False
&text1.text& 要加空格-> & text1.text &
顺便给你个例句
cmd.CommandText = "SELECT * FROM 操作记录 where 日期 >= " & begin & " and 日期 <= " & final & ""
操作记录是一张表名，BEGIN和FINAL是变量，表示开始和结束日期，
myrecord.Open "select * from "& combo1.text &" where 型号= '"&text1.text"'", myconn, adOpenDynamic, adLockBatchOptimistic
where 型号= '"&text1.text&"'", myconn, 3,3
myrecord.Open "select * from "& combo1.text &" where 型号= '"&text1.text"'", myconn, adOpenDynamic, adLockBatchOptimistic
&text1.text"'"有错
应写为:
where 型号='" & text1.text & "'",