Private Sub Form_Load()
Dim RS As ADODB.Recordset
Set RS = GetExcelRs(App.Path & "\book1.xls")
MsgBox RS.RecordCount
MsgBox RS(0)
RS(0) = Timer
RS.Update
RS.Close
End Sub
'┏〓〓〓〓〓〓〓〓〓 GetE
我是新手,有这个问题.我可以使用SQLDataReader而不是Recordset.我想在SQLDataReader中实现以下结果. Dim dbConn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sqlstr As String = "SELECT Name,Status FROM table1 WHERE id=" +