vb6向access中写入数据问题

airob 2016-12-06 10:12:38
Dim cnn1 As ADODB.Connection
Dim strCnn As String
Set cnn1 = New ADODB.Connection
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\history.mdb;Persist Security Info=False"

cnn1.Open strCnn

name = rstSchema!Table_Name
id = Right(rstSchema!Table_Name, 5)
testtype = "FVC"
testdate = Right(FILE_NAME_TEMP, 14)
review_n = txtREVIEWN.Text
review_d = txtREVIEWD.Text
cnn1.Execute "Insert Into name(ReportId,TestType,TestDate,ReviewN,ReviewD) values(id,testtype,testdate,review_n,review_d)"

这样写,最后一条写入数据的命令报错,其中name,id,testtype,testdate,review_n,review_d这几个都是字符串变量,希望将id,testtype,testdate,review_n,review_d的内容写到access中的name(name也是字符串变量,其内容是想要存入的文件名)文件中,怎么写?
vb小白,真心求教!不胜感激!
cn.Execute"INSERT INTO test(id,name) VALUES ('001','张三')"
这种写法我懂,关键是文件名和想要写入的数据都在字符串变量中,就不知道怎么操作了。谢谢大神们!
...全文
177 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
airob 2016-12-06
  • 打赏
  • 举报
回复
引用 1 楼 zhao4zhong1 的回复:
SQL="Insert Into "+name+" (ReportId,TestType,TestDate,ReviewN,ReviewD) values ('"+id+"','"+testtype+"','"+testdate+"','"+review_n+"','"+review_d+"')"
cnn1.Execute SQL
谢谢!果然好用!非常感谢!!!!好好查一查+的用法。
赵4老师 2016-12-06
  • 打赏
  • 举报
回复
Dim SQL As String
赵4老师 2016-12-06
  • 打赏
  • 举报
回复
SQL="Insert Into "+name+" (ReportId,TestType,TestDate,ReviewN,ReviewD) values ('"+id+"','"+testtype+"','"+testdate+"','"+review_n+"','"+review_d+"')"
cnn1.Execute SQL

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧