用代码连接SQL Sever 数据库(要求用代码)

tcmy_168 2001-11-29 03:02:47
用代码连接SQL Sever 数据库(要求用代码)
...全文
27 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
foolishtiger 2001-11-29
Private Sub Command1_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=BinaryData;Data Source=(local)"
rs.Open "select * from TableName", conn, adOpenStatic, adLockReadOnly

Do While Not rs.EOF
MsgBox rs.Fields("FieldName"), vbInformation
rs.MoveNext
Loop

rs.Close
conn.Close

Set rs = Nothing
Set conn = Nothing
End Sub



回复
相关推荐
发帖

1187

社区成员

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