| |
▼Gin_II さん：
>>上記のsql文を実行すると、エラーになります。
>
>どうやって実行したのでしょうか？
>
>>SYUMOKUTABLE
>
>これは、テーブルですよね？
>
>>TEIKIYOUYM
>
>このフィールドは、数値型ですか？
>
>>SYUMOKUCD
>
>このフィールドは、テキスト型ですか？
お世話になっております。
はい、その通りです。
実行方法は：
'データベースに接続する
Public Function ConnectJet() As Integer
On Error GoTo ConnectJet_Err
ConnectJet = 1
'IniファイルよりMDBパス取得
gMdbSource = fncGetIni("MDB", "MDBパス", "")
If oleCn.State = 0 Then
oleCn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & gMdbSource
oleCn.Open
End If
ConnectJet = 0
Exit Function
ConnectJet_Err:
MsgBox "データベースの接続に失敗しました。", vbCritical, gTitle
End Function
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
