编程论坛 → VB6论坛

为什么我在VB中不能向access添加数据呢？

qgh603 发布于 2012-11-23 14:34， 361 次点击

Private Sub Command1_Click()
Dim c As String
Dim i As Integer
Dim m As String, n As String

Set Rs = Conn.Execute("select * from 销售表 where 工作令='" & Text1(0).Text & "'")
SQL = "Insert Into [销售表](销售人员,工作令,出厂编号,位号,型号,面积,板片数量,板片材质,胶垫数量,胶垫材质,胶垫数量,标准,装箱) Values('" & Combo1(0).Text & "','" & Text1(0).Text & "','" & Text1(1).Text & "','" & Text1(2).Text & "','" & Combo1(1).Text & "','" & Text1(3).Text & "','" & Text1(4).Text & "','" & Text1(5).Text & "','" & Text1(6).Text & "','" & Text1(7).Text & "','" & m & "','" & n & "')"
Conn.Execute SQL
这段语句不能对数据库添加数据
用Rs.Fields(0) = Trim(Combo1(0).Text)这种方法也不能添加数据，我想知道我究竟哪方面没考虑到，网上查的好像就是这样啊？
Rs.Close
End Sub

希望大家能给予解答，先谢谢各位

2 回复

#2

wxflw2012-11-23 16:19

    If cn.State = adStateOpen Then cn.Close
    If rs.State = adStateOpen Then rs.Close
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "\你的数据库名字;Jet OLEDB:Database Password=数据库密码 "
    sql = "select * from 销售表 where 工作令='" & Text1(0).Text & "'"
    rs.Open sql, cn, 3, 3
    rs.AddNew
    rs.Fields("字段") = 新数据
    rs.Update
    MsgBox "数据保存成功！", , "提示"

#3

Artless2012-11-24 11:24

以下是引用qgh603在2012-11-23 14:34:09的发言：
SQL = "Insert Into [销售表](销售人员,工作令,出厂编号,位号,型号,面积,板片数量,板片材质,胶垫数量,胶垫材质,胶垫数量,标准,装箱) Values('" & Combo1(0).Text & "','" & Text1(0).Text & "','" & Text1(1).Text & "','" & Text1(2).Text & "','" & Combo1(1).Text & "','" & Text1(3).Text & "','" & Text1(4).Text & "','" & Text1(5).Text & "','" & Text1(6).Text & "','" & Text1(7).Text & "','" & m & "','" & n & "')"
Conn.Execute SQL
这段语句不能对数据库添加数据

不出错？

以下是引用qgh603在2012-11-23 14:34:09的发言：
用Rs.Fields(0) = Trim(Combo1(0).Text)这种方法也不能添加数据

update

1