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

tcmy_168 2001-11-29 03:02:47

...全文

57 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

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