各位朋友我连接SQL数据库查询时出问题了.请帮忙.急!急!急!

pengcheng 大连信生科技有限公司信息技术部 经理  2001-08-13 11:31:54
我的代码:
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub Form_Initialize()
Dim sql As String
Set cn = New ADODB.Connection
With cn
.Provider = "SQLOLEDB.1"
.ConnectionString = "Persist Security Info=false;Data source=SQLSERVER;Initial Catalog=pubs;User ID=sa;"
.Open
End With
sql = "select * from sysobjects where type='u'"
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
rs.CursorType = adOpenDynamic
rs.LockType = adLockBatchOptimistic
rs.Open sql, , , , adCmdText
Do Until rs.EOF
Combo1.Text = rs.Fields(0).Name
rs.MoveNext
Loop
End Sub

...全文
78 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
pengcheng 2001-08-14
嘿!lzy5042(老三),下一个再给你10分。
回复
pengcheng 2001-08-14
谢谢各位.搞定了.
回复
lzy5042 2001-08-14
combo1.text=rs.fileds(0).name.value
快给分!!你这小子!!要多给!!!
回复
ganzhiruogy 2001-08-14
sql = "select * from sysobjects where type='u'"
Set rs = New ADODB.Recordset
Set rs.ActiveConnection = cn
rs.CursorType = adOpenDynamic
rs.LockType = adLockBatchOptimistic
rs.Open sql, , , , adCmdText
rs.movefirst
I=0
Do Until rs.EOF
Combo1.List(I) = rs.Fields(0).value '?你需要字段名吗???
rs.MoveNext
I=I+1
Loop
回复
l_h_pengwei 2001-08-14
pengcheng你开玩笑吧,我调试没有问题呀!
回复
outer2000 2001-08-14
gz
回复
wolfw 2001-08-14
恩,同意 ganzhiruogy(方竹) 的意见,你是不是要字段名?
回复
lzy5042 2001-08-14
combo1.text = rs.fileds(0).value
快给分!!
回复
visualbasic999 2001-08-13
错误提示信息是什么?
回复
相关推荐
发帖

1188

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2001-08-13 11:31
社区公告
暂无公告