7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
daisy8675 2005-01-19
- 打赏
- 举报
Option Explicit
Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection
Dim ExcelApp As New Excel.Application
Private Sub Form_Load()
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source= C:\Documents and Settings\Administrator\桌面\EXCEL\test.xls;Extended Properties='Excel 8.0;HDR=Yes'"
Conn.CursorLocation = adUseClient
Conn.Open
Rs.Open "select * from [jobs]", Conn, adOpenKeyset, adLockOptimistic
Set Me.DataGrid1.DataSource = Rs
End Sub
Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection
Dim ExcelApp As New Excel.Application
Private Sub Form_Load()
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source= C:\Documents and Settings\Administrator\桌面\EXCEL\test.xls;Extended Properties='Excel 8.0;HDR=Yes'"
Conn.CursorLocation = adUseClient
Conn.Open
Rs.Open "select * from [jobs]", Conn, adOpenKeyset, adLockOptimistic
Set Me.DataGrid1.DataSource = Rs
End Sub
