投稿日 | : 2004/04/21(Wed) 21:47 |
投稿者 | : 除菌ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: VB6.0でAccess2000のデータをデータグリッドに表示 |
パット見、気づいた事を書き込みます。
(1)
>dbname = GetDataSource()
↓
dbname=App.Path & "\ファイル名.mdb"
*vbpとmdbが同じディレクトリの場合。
(2)
cn.CursorLocation = adUseClient
を
cn.Openの前に足して見て下さい。
(3)
rs.Open mySQL, cn, adOpenStatic, adLockOptimistic
↓
Set rs=New ADODB.Recordset
rs.Open mySQL, cn, adOpenStatic, adLockOptimistic
と、してみてください。