帮我看下这程序错在哪？谢谢

Question

Private Sub cmdchaxun1_Click()
Dim ad As String
ad = "select * from kehu where ¿Í»§Ãû³Æ='fdf'"
Label2 = ad
End Sub
，运行后显示的就是select * from kehu where ¿Í»§Ãû³Æ='fdf'而不是数据库记录，我的连接是直接用ADO控件做的。

Answer 1

Label2=Adodc1.Recordset.Field(0).Value

Answer 2

换成你的Label2=Adodc1.Recordset.Field(0).Value提示编译错误，未找到方法或数据成员

Answer 3

Private Sub cmdchaxun1_Click() 
Dim ad As String 
ad = "select * from kehu where ¿Í»§Ãû³Æ='fdf'" 
Adodc1.RecordSource=ad
Adodc1.Refresh
Label2 = Adodc1.Recordset.Field(0).Value 
End Sub 

Answer 4

和Label2=Adodc1.Recordset.Field(0).Value一样提示编译错误，未找到方法或数据成员

Answer 5

确实啊，VB只学了点基本的，SQL也学过，可是VB和SQL结合就不会了

Answer 6

ADO控件是什么？adodc？
怎么起名的？

Answer 7

Private Sub cmdchaxun1_Click() 
Dim ad As String 
ad = "select * from kehu where ¿Í»§Ãû³Æ='fdf'" 
Adodc1.RecordSource=ad 
Adodc1.Refresh 
Label2.caption = Adodc1.Recordset.Fields(0).Value 
End Sub

Answer 8

还是和原来一样啊，不行。就是搞不懂明明对的代码就是不行。ADO控件名就是ADODC1

Answer 9

http://download.csdn.net/source/1498324把Sql语句带入过程即可

Answer 10

Private Sub cmdchaxun1_Click()
Dim ad As String
ad = "select * from kehu where ¿Í»§Ãû³Æ='fdf'"
Adodc1.RecordSource=ad
Adodc1.Refresh
Label2 = Adodc1.Recordset.Fields(0).Value & ""
End Sub 
试试看

Answer 11

在执行小布驴的代码之前干一件事：在窗体上，用鼠标右键单击 ADODC 控件，选“属性”菜单项。1 点 General 屏上的 Build 按钮。（我的是英文版，你按意思选）
2 在弹出的窗体中，选 Microsoft Jet 4.0 OLE DB Provider，单击“下一步”。
3 点“连接”屏上的 ... 按钮，选中你的数据库。然后点“测试连接”。应该弹出连接成功。
4 连续确定，退出设置。

Answer 12

谢谢各位，应该是FIELDS少了个S
不过又有新问题了，我自己来想办法解决看看，学习嘛
另结贴是什么意思，我第一来这论坛

Answer 13

http://topic.csdn.net/u/20091021/14/80b37ba8-4009-431c-a6bf-fc2e5cd486e0.html