Set CnnDB = New ADODB.Connection CnnDB.Open strCnn strSQL = "SELECT * FROM [TabelName]" Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset rst.Open strSQL, g_CnnDB, adOpenForwardOnly, adLockReadOnly If Not (rst.BOF Or rst.EOF) Then Do Until rst.EOF '写点代码 Loop End If
rst.Close Set rst = Nothing CnnDB.Close Set CnnDB = Nothing
Dim strCnn As String, strSQL As String
Dim CnnDB As ADODB.Connection
strCnn = ""Provider=sqloledb;Data Source=tdm-win2k-01;Initial Catalog=HSBC_Malaysia;User Id=sa;Password=;""
Set CnnDB = New ADODB.Connection
CnnDB.Open strCnn strSQL = "SELECT * FROM [TabelName]" Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset rst.Open strSQL, g_CnnDB, adOpenForwardOnly, adLockReadOnly If Not (rst.BOF Or rst.EOF) Then
Do Until rst.EOF
'写点代码
Loop
End If
rst.Close
Set rst = Nothing CnnDB.Close
Set CnnDB = Nothing