1,217
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
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
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
