ss="select name from student "
With Adodc1
.ConnectionString = conn
.CommandType = adCmdText
.RecordSource = ss
.Refresh
.Caption = .Recordset(0).Name
End With
With Adodc1
.ConnectionString = conn
.CommandType = adCmdText
.RecordSource = ss
.Refresh
.Caption = .Recordset(0).Name
End With
Dim rs As New ADODB.Recordset
conn.ConnectionString = "这里是你的连接串"
conn.Open
strsql = "select * from T_user"
rs.Open strsql, conn, adOpenStatic, adLockReadOnly
Do While rs.EOF = False
MsgBox(rs.Fields("name").Value)
rs.MoveNext
Loop
Dim rs As New ADODB.Recordset
conn.ConnectionString = "这里是你的连接串"
conn.Open
strsql = "select * from T_user"
rs.Open strsql, conn, adOpenStatic, adLockReadOnly
Do While rs.EOF = False
MsgBox(rs.Fields("name").Value)
rs.MoveNext
Loop
赞同: dinya2003(OK)的