1,451
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
孤独剑_LPZ 2009-07-28
- 打赏
- 举报
1、工程>引用,选micfosoft AxtiveX data objects 2.*
2、建连接字符串
Public Const linkcn As String = " Provider=sqloledb;Data Source=机器名;Initial Catalog=数据库名;User Id=sa;Password= sa"
3、用ado对象
Dim cnGet As ADODB.Connection
cnGet.Open linkcn
Dim rsGet As ADODB.Recordset
Set rsGet = New ADODB.Recordset
sSql="select * from 表"
rsGet.Open sSql, cnGet, adOpenStatic, adLockReadOnly
2、建连接字符串
Public Const linkcn As String = " Provider=sqloledb;Data Source=机器名;Initial Catalog=数据库名;User Id=sa;Password= sa"
3、用ado对象
Dim cnGet As ADODB.Connection
cnGet.Open linkcn
Dim rsGet As ADODB.Recordset
Set rsGet = New ADODB.Recordset
sSql="select * from 表"
rsGet.Open sSql, cnGet, adOpenStatic, adLockReadOnly
