Question

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

我在视频中使用了这段代码，并在＆＃34; rs.open＆＃34;中收到编译错误声明。如果你能提供一个好的插入命令或帮助找出错误，我将感激不尽。

Answer 1

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” 这只是我所知的一点帮助。但在继续之前要先学习。

如何使用vb6.0将数据从文本框插入sqltable

1 个答案: