UC知道VB6.0里怎么写SQL语句
来源：百度知道 编辑：UC知道 时间：2024/05/17 09:38:58
我框架里有个Data1的控件，连接了数据库，我想用SQL语句查询数据库，并把查询结果返回给一个文本框，怎么写，各位老大教教我吧，谢谢！
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Dim strsql As String
Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\销售管理系统\库\产品信息.mdb(数据库路径);Persist Security Info=False"
strsql = "select * from 产品信息表"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open strsql, conn, adOpenDynamic, adLockReadOnly
Set DataGrid1(text1).DataSource = rs
End Sub
我是用 DataGrid用于显示，你把他直接换成特性台text1,应该就可以了
贴出你此位置的全部代码来 我给你补充sql语句和查询方法
看你半天没贴代码 还是给你写个示例吧:
以下两句 可以实现
Adodc1.RecordSource = "select 姓名 from 表 where 年龄>20" 'sql语句 查询年龄大于20岁的人的姓名
Set Text1.DataSource = Adodc1 '绑定到text1
注意:楼上的二位说的都是ADODC控件,而你说的是DATA控件,这是不一样的,如果要用上面的代码,要在工具中增加这个控件才可以使用的,其实连接到数据库后,用SQL命令是很容易的!