请帮忙看看这代码有没有问题?

主题：请帮忙看看这代码有没有问题?

dgwdgw [专家分：100] 发布于 2008-07-17 10:26:00

Private Sub add()
   Dim addUserRec As New ADODB.Recordset
   Dim DBstr As String
   Dim M, QQ
   Dim A0, A1, A2, A3, A4, A5, A6, A7, A8, A9, A10
   Dim A11, A12, A13, A14, A15, A16, A17, A18, A19
   Dim A20, A21, A22, A23, A24, A25, A26, A27, A28
   A0 = Text1(0).Text
   A1 = Text1(1).Text
   A2 = Text1(2).Text
   A3 = Val(Text1(3).Text)
   A4 = Val(Text1(4).Text)
   A5 = Val(Text1(5).Text)
   A6 = Val(Text1(6).Text)
   A7 = Val(Text1(7).Text)
   A8 = Val(Text1(8).Text)
   A9 = Text1(9).Text
   A10 = Text1(10).Text
   A11 = Val(Text1(11).Text)
   A12 = Val(Text1(12).Text)
   A13 = Val(Text1(13).Text)
   A14 = Val(Text1(14).Text)
   A15 = Val(Text1(15).Text)
   A16 = Val(Text1(16).Text)
   A17 = Val(Text1(17).Text)
   A18 = Text1(18).Text
   A19 = Text1(19).Text
   A20 = Val(Text1(20).Text)
   A21 = Val(Text1(21).Text)
   A22 = Val(Text1(22).Text)
   A23 = Val(Text1(23).Text)
   A24 = Val(Text1(24).Text)
   A25 = Val(Text1(25).Text)
   A26 = Text1(26).Text
   A27 = Text1(27).Text
   A28 = Text1(28).Text

   Set addUserRec = Adodc1.Recordset   '向ADODB控件所连接的数据库表中添加一条新的记录
   DBstr = "select * from 叠片"
   addUserRec.AddNew
   addUserRec.Fields("合同号") = A0
   addUserRec.Fields("产品编号") = A18
   addUserRec.Fields("客户编码") = A9
   addUserRec.Fields("客户名称") = A1
   addUserRec.Fields("轭截面积") = A15
   addUserRec.Fields("图号") = A19
   addUserRec.Fields("机型号") = A10
   addUserRec.Fields("硅钢牌号") = A27
   addUserRec.Fields("铁心形式") = A26
   addUserRec.Fields("检验日期") = A2
   addUserRec.Fields("主级叠厚") = A3
   addUserRec.Fields("总叠厚") = A4
   addUserRec.Fields("最大对角线") = A5
   addUserRec.Fields("实测空流") = A13
   addUserRec.Fields("标准电压") = A6
   addUserRec.Fields("实测电压") = A11
   addUserRec.Fields("标准匝数") = A7
   addUserRec.Fields("实测匝数") = A12
   addUserRec.Fields("实测损耗") = A14
   addUserRec.Fields("计算损耗") = A17
   addUserRec.Fields("标准损耗") = A8
   addUserRec.Fields("备注") = A28
   addUserRec.Fields("计算重量") = A16
   addUserRec.Fields("实测重量") = A15
   addUserRec.Fields("心柱磁密") = A22
   addUserRec.Fields("铁轭磁密") = A23
   addUserRec.Fields("柱单位铁损") = A24
   addUserRec.Fields("轭单位铁损") = A25
   addUserRec.Fields("柱截面积") = A20
   addUserRec.Update
   Adodc1.Refresh
   M = "存盘完成。"
   MsgBox M, QQ, "存盘"
End Sub
运行成功,就是在数据库里没有增加新的记录????帮忙看看.谢谢!

本帖地址： http://bbs.pfan.cn/post/280805.html

回复列表（共5个回复）

沙发

artless [专家分：1490] 发布于 2008-07-17 17:54:00

你搞混了。

板凳

jianghongbo1 [专家分：410] 发布于 2008-07-18 08:48:00

先引用
dim cn as new adodb.connection
Dim addUserRec As New ADODB.Recordset
cn.connection open()
addUserRec.recordset open "select * from 叠片"
addUserRec.recordset.addnew
。。。。。
addUserRec.recordset.update
addUserRec.recordset.close
set addUserRec=nothing
set cn=nothing

3 楼

dgwdgw [专家分：100] 发布于 2008-07-18 12:58:00

那我这样定义连接行不行？
都是按书上写的。
这个是模块里的
Public g_Conn As Connection    '当前活动连接
Public g_UserName As String    '当前登录用户
Sub Main()
  Dim msg As String
  On Error Resume Next
    Dim Cnn As ADODB.Connection
    msg = ConnectToDatabase("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Z:\TIEXIN.mdb")
  If msg <> "" Then
    MsgBox "连接数据库失败," & msg, 16, "登录"
    End
  End If
  frmWelcome.Show vbModal
End Sub
Public Function ConnectToDatabase(strFileName As String) As String
   On Error GoTo ERR_CONN
   Set g_Conn = New ADODB.Connection
   With g_Conn
     .CursorLocation = adUseClient
     .CommandTimeout = 100
     .ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Password='';" & "Data Source=Z:\TIEXIN.mdb") '& App.Path & "\" & strFileName
     .Open
   End With
   ConnectToDatabase = ""
  Exit Function
ERR_CONN:
  ConnectToDatabase = Err.Description
End Function

4 楼

dgwdgw [专家分：100] 发布于 2008-07-18 12:59:00

我可以查询数据，就是不能修改，删除和增加？

5 楼

dgwdgw [专家分：100] 发布于 2008-07-19 09:49:00

哈哈，终于搞定了，原来是把Update改成UpdateBatch就可以了

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：请帮忙看看这代码有没有问题?

回复列表（共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：请帮忙看看这代码有没有问题?

回复列表 （共5个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共5个回复）