Private Sub Cmdbc_Click()
mlink = "provider=microsoft.jet.oledb.3.51; persist security info= false;"
mlink = mlink + "data source=生产成本.mdb"
Adodc2.ConnectionString = mlink
Adodc2.CommandType = adCmdUnknown
Dim sql As String
Dim bn As String
sql = "update 1车间(A产品) set 日期='2007-12-12',摘要='余额',发生额=Val(Text6)"
Adodc1.Recordset.ActiveConnection.Execute sql
'bn = "insert 1车间(A产品) values('2007/12/7','余额'','Val(Text6)' )"
'Adodc1.Recordset.ActiveConnection.Execute bn
End Sub
向access数据库中添加时vb提示update语句的语法错误
用insert时提示insert语句错误给纠正一下
mlink = "provider=microsoft.jet.oledb.3.51; persist security info= false;"
mlink = mlink + "data source=生产成本.mdb"
Adodc2.ConnectionString = mlink
Adodc2.CommandType = adCmdUnknown
Dim sql As String
Dim bn As String
sql = "update 1车间(A产品) set 日期='2007-12-12',摘要='余额',发生额=Val(Text6)"
Adodc1.Recordset.ActiveConnection.Execute sql
'bn = "insert 1车间(A产品) values('2007/12/7','余额'','Val(Text6)' )"
'Adodc1.Recordset.ActiveConnection.Execute bn
End Sub
向access数据库中添加时vb提示update语句的语法错误
用insert时提示insert语句错误给纠正一下
解决方案 »
- 运行vb程序,打开登录窗口时,弹出错误"430类不支持自动化或不期望有接口"
- 用VB实现高斯滤波,做数字图像处理,图像数据放在pBuffer(1280*1024)中
- 求各位大侠,帮我写个简单的算法过程,谢谢了
- 用 wse9 打包的问题,大虾赐教~~~
- 请教如何在文本中的两个数据之间插入空格.
- VB类或者应用程序注册冲突
- 各位老大:怎样在DATAGRID的一个格中放进一个检查框?
- Listbox滚动条如何自动滚动
- VBA access 中如何读取 csv文件的数据,再现等待,解决给分
- VB操作数据库,多步操作产生错误
- 一个循环问题
- 在vb中怎样用OPENSCHEMA的方法获得SQL某个表中的默认值?
改为
sql = "update 1车间(A产品) set 日期='2007-12-12',摘要='余额',发生额=" & Val(Text6)
试验一下
中的双引号位置好像不对吧
mlink = "provider=microsoft.jet.oledb.3.51; persist security info= false;"
mlink = mlink & " data source=生产成本.mdb"
Adodc2.ConnectionString = mlink
Adodc2.CommandType = adCmdUnknown
Dim sql As String
Dim bn As String
sql = "update 1车间(A产品) set 日期='2007-12-12',摘要='余额',发生额='" & Val(Text6) & "'"
Adodc1.Recordset.ActiveConnection.Execute( sql)
'bn = "insert 1车间(A产品) values('2007/12/7','余额'','Val(Text6)' )"
'Adodc1.Recordset.ActiveConnection.Execute bn
End Sub
sql = "update [1车间](A产品) set 日期='2007-12-12',摘要='余额',发生额='" & Val(Text6) & "'"再不行那是不是
Adodc2.ConnectionString = mlink '为什么这里是adodc2
Adodc2.CommandType = adCmdUnknown
Dim sql As String
Dim bn As String
sql = "update 1车间(A产品) set 日期='2007-12-12',摘要='余额',发生额=Val(Text6)"
Adodc1.Recordset.ActiveConnection.Execute sql'为什么这里又是adodc1
Private Sub Cmdbc_Click()
mlink = "provider=microsoft.jet.oledb.3.51; persist security info= false;"
mlink = mlink + "data source=生产成本.mdb" '生产成本
If Cobfenpei.Text = "1车间" Then
Adodc2.ConnectionString = mlink
Adodc2.CommandType = adCmdUnknown
Adodc2.RecordSource = "select * from 1车间A产品"
Adodc2.Refresh
Set Text8.DataSource = Adodc2
Set Text12.DataSource = Adodc2
Set Text9.DataSource = Adodc2
Text12.DataField = "发生额"
Text8.DataField = "摘要"
Text9.DataField = "日期"
Adodc2.Recordset.AddNew
Text12.Text = Val(Text6)
Adodc2.Recordset.UpdateBatch adAffectAllChapters
Adodc2.Recordset.MoveLast
Adodc3.ConnectionString = mlink
Adodc3.CommandType = adCmdUnknown
Adodc3.RecordSource = "select * from 1车间B产品"
Adodc3.Refresh
Set Text13.DataSource = Adodc3
Set Text10.DataSource = Adodc3
Set Text11.DataSource = Adodc3
Text13.DataField = "发生额"
Text10.DataField = "摘要"
Text11.DataField = "日期"
Adodc3.Recordset.AddNew
Text10.Text = Text8.Text
Text11.Text = Text9.Text
Text13.Text = Val(Text7)
Adodc3.Recordset.UpdateBatch adAffectAllChapters
Adodc3.Recordset.MoveLast
ElseIf Cobfenpei.Text = "2车间" Then
............
end if
end sub
其中adodc2、adodc3分别连接两个表同时增加数据
谢谢大家