Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33110 / 76734

←次へ　｜　前へ→


	【48848】DB接続のエラー

yumi - 07/5/11(金) 14:06 -


	引用なし

	パスワード

DB操作初心者です。

ユーザフォームのコマンドボタンが押されたら
以下の処理をしたいと思っています。

1.work_contents（DB）から、Label1に入力された
ユーザIDに該当するデータを取得する。
2.テキストボックスに入力された、時間、金額、交通費など
をwork_contents（DB）に書き込む（更新・編集）
（ユーザIDに該当するレコードのみ更新・編集したい）

実行すると「型が一致しません」とエラー表示されます。
何がいけないのか全くわかりません・・・

教えて頂けますでしょうか？？？

************************************************************************
Option Explicit

Dim cn As Connection
Dim rs As Recordset
Dim Select_no As Long
Dim Selcmd As String

Private Sub CommandButton1_Click()

'データベース接続
Set cn = New Connection
cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" _
　　　　　　　　　　　　& "data source=\\filer\Consignment_of_business_activities.mdb"
cn.Open

'抽出条件指定
Selcmd = "select * from work_contents" _
　　　　 & "where ユーザID = " & Label1
　　　　
'データ更新
Set rs = New ADODB.Recordset
rs.Open "work_contents", Selcmd, cn, adOpenKeyset, adLockOptimistic

rs!ユーザID = Label1
rs!作業時間 = TextBox1
rs!作業時間_時間 = TextBox2
rs!金額 = TextBox3
rs!交通費 = TextBox4
rs.Update

'データベース切断
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

End Sub

************************************************************************

3 hits

▼

【48848】DB接続のエラー yumi 07/5/11(金) 14:06

≪