用原始的ado对象来连数据源。
声名一个adodb.connect,一个adodb.recordset
connect.open'数据源,用户,密码';
recordset.open'connect,sql,adopendynamic,adlockoptimistic'
datagrid.recordset=recordset
声名一个adodb.connect,一个adodb.recordset
connect.open'数据源,用户,密码';
recordset.open'connect,sql,adopendynamic,adlockoptimistic'
datagrid.recordset=recordset
解决方案 »
- 请将我下面的delphi dll 源码转成vb,谢谢
- 简单Q在中文版VB6.0的中开发环境中,怎样才能把MSGBOX()弹出的提示窗口中的确定按钮上的文字"确定"显示为英文
- 一个鼠标动作的问题~
- 我的Label的Caption为什么刷新不了啊?(在线等待)
- 如何利用winzip解压其中的一个文件?
- ***同时懂vb和vc的高手看过来!***(在线等待)
- 急,帮忙看看,一个数据库的问题。
- dll文件返回值问题
- VB 如何锁住光驱的门,不让它打开?
- 谁遇到过这样的错误
- 请教高手,怎样强制一个本地或远程NT系统关闭???
- 系统错误:&H80004005(-2147467259) 请问这个错误 一般是什么地方出问题 谢谢 急急急急急急!!
Dim cnn As Connection
Dim rs As Recordset
Dim Sql As String
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.Open "Provider;Data Source;userid;……"
Sql="……"
rs.Open Sql, cnn, adOpenKeyset,adLockOptimistic
Set datagrid1.datasource=rs
Dim rs As Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;Password=pass;User ID=user;Initial Catalog=databasename;Data Source=Servername;auto translate=false" rs.Open "select * from table",cnn,adOpenKeyset,adLockOptimistic
Set DataGrid1.DataSource = rs