vbは初めてで、以下のコードを試しました。グーグルで解決策を検索しました。しかし、私は結果と混同しています。だから私はSOに投稿しています。
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As ADODB.Command
Dim statement As String
Private Sub cmd_update_Click()
con.Open "Provider=SQLOLEDB;Data Source=STPLSVR06.syrmatech.local;Initial Catalog=BVM;Database=Bluestar;uid=sa;pwd=STPLadmin098;"
rs.Open = "insert into Test_Duct values(txt_Board_SrNo.Text,txt_Test_DateTime.Text,txt_User_Name.Text,txt_Communication_status.Text,txt_WatchDog_Status.Text,txt_VoltMes.Text,txt_VoltStatus.Text)"
rs.Close
con.Close
End Sub
ビデオからこのコードを使用しましたが、「rs.open」ステートメントでコンパイラエラーが発生します。uのいずれかが適切な挿入コマンドを実行したり、エラーの原因を見つけるのに役立つことができれば、私は感謝します。
Valは数字のみを保存します。これを試して:
Dim usrname As String 'declare as a string
brdSrNo = txt_Board_SrNo.Text
usrname = txt_User_Name.Text
rs.Open "insert into vbtest values(" & brdSrNo & ",'" & usrname & "')", con,adOpenDynamic, adLockBatchOptimistic
'string should be given in single quotes
「adOpenDynamic、adLockBatchOptimistic」を追加することを忘れないでください。これは私の知識からのほんの少しの助けです。しかし、先に進む前に学ぶようにしてください。
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加