| 投稿日 | ： 2004/09/19(Sun) 20:25 |
| 投稿者 | ： junchan |
| Ｅメール | ： bkalw803@rinku.zaq.ne.jp |
| ＵＲＬ | ： |
| タイトル | ： Re^2: LAN上のデーターベースに接続するには |
解決しました。
あれやこれやと試行錯誤し参考書に当たっているうちにSQLの項目に
手がかりがありました。
参考までに下記にプロシージャーを記しておきます。
Private sub Command1_click()
Dim cn As New ADODB.Connection
Dim rst As ADODB.Recordset
Dim strSQL As String
Set cn = New ADODB.Connection
cn.ConnectionString = _
"Provider=Microsoft.Jet.OLBDB.4.0;" & _
"Data Source=\\SOTEC\My Documents\住所録.mdb"
cn.Open
Set rst = New ADODB.Recordset
' 以下省略
End Sub