您的位置：程序门 -> vb -> 数据库（包含打印，安装，报表)

关于ado与datagrid的链接，望指教

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

关于ado与datagrid的链接，望指教

发表于：2007-06-14 08:37:36 楼主

在工程中添加了一个窗体，窗体中有一个datagrid控件
请问怎样链接sql数据库呢？
希望高手给出相关代码，谢谢了！

发表于：2007-06-14 08:56:241楼得分:0

http://club.book.csdn.net/people/mylist444.html
con.connectionstring = "provider=sqloledb.1;integrated security=sspi;persist security info=false;initial catalog=dbname;data source=dbservername;uid=sa;pwd= "
con.open
con.cursorlocation = aduseclient
rs.open "select * from passport order by id ", con, adopenstatic, adlockoptimistic
set me.datagrid1.datasource = rs
me.datagrid1.refresh

发表于：2007-06-14 08:58:452楼得分:0

dim con as new adodb.connection
dim rs as new adodb.recordset

发表于：2007-06-14 09:08:443楼得分:0

顶!!!

发表于：2007-06-14 09:12:154楼得分:0

参考：
set cnn = new adodb.connection
cnn.cursorlocation = aduseclient
'有密码的access数据库
cnn.connectionstring = "provider=microsoft.jet.oledb.4.0;data source= " & app.path & "\videorental.mdb " & ";persist security info=false;jet oledb:database password=incubus "
cnn.open

set adors = new adodb.recordset
adors.open "select * from users ", cnn, adopenstatic, adlockpessimistic
set datagrid1.datasource = adors

发表于：2007-06-14 09:42:555楼得分:0

加个adodc控件很快的，不咬写代码的！

不写一句代码就可以连接数据库！

---------------------------------------------------------------------------------
人事考勤工资系统88元！9天自助建站系统80元！vb项目毕业设计参考20元!100个商业网站源码热销中!
阳光软件网:
http://www.sun883.com

发表于：2007-06-14 15:54:286楼得分:0

dim cnn as new adodb.recordset
dim rs as new adodb.recordset
dim strcnn as string, strsql as string

on error goto exithandle

strcnn= "driver={sql server};server= " & @servername & ";uid= " & @userid & ";pwd= " & @password & ";database= " & @database
cnn.cursorlocation = aduseclient
cnn.open strcnn

strsql=....
rs.open strsql, cnn, adopenforwardonly, adlockreadonly '如果只是浏览的话
set rs.activeconnection = nothing
set datagrid1.datasource = rs

exithandle:
if err.number <> 0 then
msgbox err.number & ": " & err.description
if rs.state = adstateopen then rs.close
set rs = nothing
end if
if cnn.state = adstateopen then cnn.close
set cnn = nothing

发表于：2007-06-18 13:11:427楼得分:0

我有这样的示例。需要我发给你
qq：5658967
vb群：4411229

发表于：2007-06-18 14:04:598楼得分:0

dim conn as new adodb.connection
dim rs as new adodb.recordset
dim strconn as string
private sub command1_click（)
strconn = "provider=sqloledb.1;integrated security=sspi;database=qq " 'qq是sql server中数据表
conn.open strconn
rs.open "select * from 数据表 ", conn, adopenstatic, adlockpessimistic
datagrid1.datasource = rs
end sub
'点击command1后就可以把数据库表的数据填充到datagrid中

下一篇：在msflexgrid中,删除某行时,当行中没有获得焦点时怎样报错
上一篇：conn.ＥＸＥＣute插入失败的问题

其他资讯