タイトル : Re: データベース操作について。 投稿日 : 2004/02/12(Thu) 22:38 投稿者 : How-Much
sub 接続 dim CN As New ADODB.Connection CN.ConnectionString = "provider=microsoft.jet.oledb.4.0;" _ & "data source=d:\住宅使用料\住宅使用料.mdb" CN.Open end Sub Sub Fopn使用料() Dim SQL As String SQL = "select * from " & 年度$ & "Tbl使用料 order by 住宅cd,納付書 番号" Rs使用料.CursorLocation = adUseClient 'ソート許可 Rs使用料.Open SQL, CN, adOpenStatic, adLockOptimistic End Sub 以上はVB6で使用している一部です。参考になるでしょうか。 |