UC知道VB+access两个表帮忙修改一段代码
来源：百度知道 编辑：UC知道 时间：2024/05/18 11:17:00
要求：
有一个数据库a.mdb 两个表b和c
b表字段有1、2、3 关键字是1
c表字段有4、5、6 关键字是5
我要将Text1、Text2、Text3 的内容记录到b、c表中
其中
Text1 对应字段1、4
Text2 对应字段2、5
Text3 对应字段3、6
如果5有重复的数据 那么就将3、6字段相加
我现在写了一段把Text1,Text2、Text3送到b表的1、2、3中
代码：
Set conn = CreateObject("ADODB.Connection")
connSTR = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\a.mdb"
conn.Open connSTR
Set rs = CreateObject("adodb.recordset")
sql = "select * from b"
rs.Open sql, conn, 1, 3
rs.AddNew
rs("1") = Text1.Text
rs("2") = Text2.Text
rs("3") = Text4.Text
rs.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
如果5有重复的数据 那么就将3、6字段相加
有一个数据库a.mdb 两个表b和c
b表字段有1、2、3 关键字是1
c表字段有4、5、6 关键字是5
我要将Text1、Text2、Text3 的内容记录到b、c表中
其中
Text1 对应字段1、4
Text2 对应字段2、5
Text3 对应字段3、6
如果5有重复的数据 那么就将3、6字段相加
我现在写了一段把Text1,Text2、Text3送到b表的1、2、3中
代码：
Set conn = CreateObject("ADODB.Connection")
connSTR = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\a.mdb"
conn.Open connSTR
Set rs = CreateObject("adodb.recordset")
sql = "select * from b"
rs.Open sql, conn, 1, 3
rs.AddNew
rs("1") = Text1.Text
rs("2") = Text2.Text
rs("3") = Text4.Text
rs.Update
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
如果5有重复的数据 那么就将3、6字段相加
Set conn = CreateObject("ADODB.Connection")
connSTR = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\a.mdb"
conn.Open connSTR
sql = "select * from b"
rs.Open sql, conn, 1, 3
rs.AddNew
rs("1") = Text1.Text
rs("2") = Text2.Text
rs("3") = Text4.Text
rs.Update
rs.Close
Set rs = Nothing
sql = "select * from c"
rs.Open sql, conn, 1, 3
rs.AddNew
rs("4") = Text1.Text
rs("5") = Text2.Text
rs("6") = Text4.Text
rs.Update
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
如果你想问VB2005我一定回答
VB6不太懂久也不搞了
而且题目好像没说明白
"如果5有重复的数据 那么就将3、6字段相加 "
这句是什么意思?把3和6字段相加放在5那里吗?
假定5的字段名是Id
先查询表b中是否有Text2 的Id