没办法,又要请高手指点VB程序了(VB+access)

来源：百度知道编辑：UC知道时间：2024/06/06 23:59:45

我是想用VB程序查询表A字段321里的内容,但是报错(报错内容:"运行时错误有写数字,FORM子局语法错误)

说明:是VB6.0的,程序有加引用.(有一个command1,一个text1,一个DataGrid1).数据库名:321 表名:A 字段名:321 字段里的内容: abc cba

这是form1的代码:
Private Sub Command1_Click()
Call Go
objCn.CursorLocation = adUseClient

If objRs.State <> adStateClosed Then objRs.Close
objRs.Open "select * from A ='" & Trim(Text1.Text) & "'", objCn, adOpenKeyset, adLockOptimistic
If Not objRs.EOF Then
Set DataGrid1.DataSource = objRs
End If
End Sub
这是模块的:
Public objRs As New ADODB.Recordset
Public objCn As New ADODB.Connection

Public Function Go()
If objCn.State <> adStateClosed Then objCn.Close
objCn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path + "\321.mdb"
objCn.Open

End Function
text1是要填字段名的
填了,按command1才开是查询

select语句有问题：
"select * from A where ***='" & Trim(Text1.Text) & "'"
带***的地方填字段名
而且字段名怎么可以用数字来定义啊？
换一个标准变量名啊
不然就会出现
"select * from A where 321='" & Trim(Text1.Text) & "'"
肯定会出错的

objRs.Open "select * from A ='" & Trim(Text1.Text) & "'", objCn,
这里错了啦，缺where了
select * from A where [321] ='" & Trim(Text1.Text) & "'"

哦，你是想把给定字段里的内容列举出来吧，这样试试
objRs.Open "select [" & Trim(Text1.Text) & "] from A", objCn,

没办法,又要请高手指点VB程序了(VB+access) 请VB高手指点一个小程序我的JAVA程序没办法运行,请高手指点,急!!!!!!!!!!! vb小程序怎么运行不起,高手请指点一下! 关于VB中的一段程序,请高手指点请高手指点：这段VB程序出错在什么地方？ vb问题请高手指点求VB高手指点一段程序我用VB编写了个程序，但总是出错，请高手指点一下我通过二级VB ,想考明年的计算机三级,而我听说要考网络技术要有C语言的基础,可我们又没学过,请高手指点