vb中的查询

[che_tianxia]

我用VB编写用户管理软件,表是ACCESS表,
但查询不会做,那位高手给个代码?谢谢
还有啊,我总共有多少分啊,多多帮忙
分全给你啦

[wangyongshuang]

Public cn As New ADODB.Connection

cn.ConnectionString = "Provider=SQLOLEDB.1;Password=welcome;Persist Security Info=True;User ID=sa;Initial Catalog=source;Data Source=print"
cn.Open
Dim btrs As New ADODB.Recordset
c_sql = "select crs.*,username=(select name from code where id=crs.userid) " & _
"from computer as crs where id='" & Trim(txtid.Text) & "'"
btrs.open c_sql,cn,,,,
这是用ADO的方法，比较灵活，推荐你使用，具体可以查一些代码，
如果你要的话，MSDN上就有。

[HjmaAsC]

真的,你死得好难看.

[hzyzx]

dim sAs as Database
Dim rcc As DAO.Recordset
dim str,strSQL as string
str ="c:\user.mdb"
strsQl ="select * from 表名"
Set sAs = Workspaces(0).OpenDatabase(str)
Set rcc = sAs.OpenRecordset(strSQl)
....
写一个最简单的，供参考。

[kuailexq2000]

1、最快的方法：adodc加dataeverment
2、adodc,然后通过odbc 连接datasource,再绑定到text
3、data 设置Databasename 再绑定到text
dataaccess.recordset.delete
dataaccess.recordset.movenext
....
I have to leave ...see you nexttime