EXCEL VBA 语句出错

qiruizhou 2010-12-23 01:39:54
在下面红色那行报错,百思不得其解,请大家赐教

Private Sub CommandButton2_Click()
If TextBox2.Text <> "" And TextBox3.Text <> "" Then
Dim cn As New ADODB.Connection
Const constr = "provider=MSDAORA.oracle;data source=AAA;user id =AAA;password=AAA;"
cn.Open constr
cn.Execute "insert into vba (a,b) values ("&textbox2.Text&","&textbox3.Text&")"
MsgBox "insert ok"
cn.Close
cn = Nothing
End If
End Sub
...全文
96 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
fsyyyy 2011-01-19
  • 打赏
  • 举报
回复
楼主真聪明!
"& 变量 &"
myxiqi 2011-01-18
  • 打赏
  • 举报
回复
哥,分数给我吧。我没分,无法提问问题,哭~
qiruizhou 2010-12-23
  • 打赏
  • 举报
回复
自己解决了,原来&前后要加空格

5,139

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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