If RS_Get_Form_Name_Array.RecordCount <> 0 Then RS_Get_Form_Name_Array.MoveFirst RS_Get_Form_Name_Array.MoveLast RS_Get_Form_Name_Array.MoveFirst End If
ReDim Tmp_Form_Name_Array(RS_Get_Form_Name_Array.RecordCount) As String
For i = 1 To RS_Get_Form_Name_Array.RecordCount Tmp_Form_Name_Array(i) = RS_Get_Form_Name_Array ("f_form_name") RS_Get_Form_Name_Array.MoveNext Next
RS_Get_Form_Name_Array.Close Set RS_Get_Form_Name_Array = Nothing
'连接数据库并将它打开
Set Gbl_DB_Con = New ADODB.Connection
Gbl_DB_Con.Open "Provider = sqloledb;data source=devserver;user ID=sa;initial catalog=test_Excel;password= pass"
Dim i As Integer
'建立数据集
Dim RS_Get_Form_Name_Array As ADOR.Recordset
Set RS_Get_Form_Name_Array = New ADOR.Recordset
RS_Get_Form_Name_Array.Open "SELECT f_form_name " _
& "FROM t_form ", _
Gbl_DB_Con, adOpenStatic, adLockReadOnly
If RS_Get_Form_Name_Array.RecordCount <> 0 Then
RS_Get_Form_Name_Array.MoveFirst
RS_Get_Form_Name_Array.MoveLast
RS_Get_Form_Name_Array.MoveFirst
End If
ReDim Tmp_Form_Name_Array(RS_Get_Form_Name_Array.RecordCount) As String
For i = 1 To RS_Get_Form_Name_Array.RecordCount
Tmp_Form_Name_Array(i) = RS_Get_Form_Name_Array ("f_form_name")
RS_Get_Form_Name_Array.MoveNext
Next
RS_Get_Form_Name_Array.Close
Set RS_Get_Form_Name_Array = Nothing
贪方便的话,试试DATAGIRD和DATAENVIRONMENT吧。
ADO 是不错,其实我也不是想偷懒,
要是能够省事点,做了几年,就可以省好多时间,然后用这些时间去做更多的事,赚更多的钱,那不是很好吗