wzhxxt
小水手
UID 1669
精华
0
积分 7
帖子 7
阅读权限 10
注册 2006-1-9
状态 离线
|
老兄，你是想连接什么数据库呀？是SQL Server还是Access?
下面是连接Excel的，其它的数据库也差不多，修改一下就好了。
Dim cnn As New ADODB.Connection
dim rs as new adodb.recordset
cnn.ConnectionString = " rovider=Microsoft.Jet.OLEDB.4.0ersist security Info=false;data source=" & CommonDialog1.FileName & ";Extended Properties="Excel 8.0;HDR=Yes""
cnn.open
rs.Open "select * from [Sheet1$]", cnn, adOpenKeyset, adLockOptimistic
|
|
