7,785
社区成员




Private Sub Command1_Click()
Dim mysqlstr As String
Set conn = New adodb.Connection
Set rs = New adodb.Recordset
conn.ConnectionString = "Provider=MSDAORA.1;User ID=system;Password=852;Data Source=orcl;Persist Security Info=False;"
'conn.ConnectionTimeout = 30
conn.Open
mysqlstr = "select * from ok_mydate " 'sql语句
Set rs = conn.Execute(mysqlstr) '建立记录集
Do While Not rs.EOF
For i = 0 To rs.Fields.Count - 1
T_rs.Text = T_rs.Text & rs.Fields(i) '输出表中各字段
T_rs.Text = T_rs.Text & vbCrLf '换行
Next i
T_rs.Text = T_rs.Text & vbCrLf & "*-*-*-*-*-*-*-*-*-*-*-*-*-*-*" & vbCrLf & vbCrLf '换行
rs.MoveNext
Loop
End Sub