Dim rt As ADODB.Recordset Dim cn As ADODB.Connection Dim cmd As ADODB.Command Dim strconn As StringSet rt = New ADODB.Recordset Set cn = New ADODB.Connection Set cmd = New ADODB.Commandstrconn = "Driver={Microsoft ODBC for Oracle};" & _ "Server=自己添;" & _ "Uid=自己添;" & _ "Pwd=自己添;"cn.Open strconn cn.CursorLocation = adUseClientSet cmd.ActiveConnection = cn cmd.CommandText = "select * from workshop_master" rt.CursorLocation = adUseClient rt.CursorType = adOpenStatic 'adOpenDynamic rt.LockType = adLockBatchOptimistic 'adLockOptimisticSet rt = cmd.ExecuteSet DataGrid1.DataSource = rt
刚接触数据库时就是这样的,嘿嘿
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim strconn As StringSet rt = New ADODB.Recordset
Set cn = New ADODB.Connection
Set cmd = New ADODB.Commandstrconn = "Driver={Microsoft ODBC for Oracle};" & _
"Server=自己添;" & _
"Uid=自己添;" & _
"Pwd=自己添;"cn.Open strconn
cn.CursorLocation = adUseClientSet cmd.ActiveConnection = cn
cmd.CommandText = "select * from workshop_master"
rt.CursorLocation = adUseClient
rt.CursorType = adOpenStatic 'adOpenDynamic
rt.LockType = adLockBatchOptimistic 'adLockOptimisticSet rt = cmd.ExecuteSet DataGrid1.DataSource = rt