Question

VB 对数据库进行新增、修改时老是出错，求解释，求代码

Private Sub Command4_Click()Dim conn As New ADODB.ConnectionDim rs As New ADODB.Recordsetconn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DATE.mdb;Jet OLEDB:Database Password=123456" '数据存放路径conn.OpenDim sql As Stringsql = " "sql = sql & "update 职称申报 set [姓名] ='" & Text3.Text & "',[性别] ='" & Combo1.Text & "',[年龄] ='" & Text4.Text & "',[申报资格] ='" & Combo27.Text & "',[申报等级] ='" & Combo9.Text & "',[最高学历] ='" & Combo2.Text & "',[学科类别] ='" & Combo18.Text & "',[在职学历] ='" & Combo3.Text & "',[从事行业] ='" & Combo7.Text & "',[工作年] ='" & Combo8.Text & "',[工作月] ='" & Combo11.Text & "',[单位性质] ='" & Combo6.Text & "',[单位地址] ='" & Combo5.Text & "',[档案地] ='" & Combo26.Text & "',[初级] ='" & Combo10.Text & "',[初级年] ='" & Combo14.Text & "'"sql = sql & "update 职称申报 set [初级月] ='" & Combo12.Text & "',[中级] ='" & Combo13.Text & "',[中级年] ='" & Combo17.Text & "',[中级月] ='" & Combo15.Text & "',[高级] ='" & Combo16.Text & "',[高级年] ='" & Combo28.Text & "',[高级月] ='" & Combo25.Text & "',[外语] ='" & Combo19.Text & "',[计算机] ='" & Combo20.Text & "',[考核] ='" & Combo24.Text & "'"sql = sql & "update 职称申报 set [公需科目1] = '" & Combo21.Text & "',[公需科目2] = '" & Combo22.Text & "',[公需科目3] = '" & Combo23.Text & "',[公需科目4] = '" & Combo29.Text & "'"sql = sql & "update 职称申报 set [继续教育1] = '" & Combo30.Text & "',[继续教育2] ='" & Combo31.Text & "',[继续教育3] ='" & Combo32.Text & "',[继续教育4] ='" & Combo33.Text & "',[填写时间] ='" & Format(Now(), "yyyy年MM月dd日") & "'"rs.Open sql, conn, 3, 3conn.CloseEnd Sub----------老是操作符丢失。。。。另外请问如果数据库存在记录，如何自动填充text、Combo

Answer 1

你这个SQL语句中 "Update 职称申报 "有重复三次,并且有连接在一起, 所以这条SQL语名是不正确的. 你可以在加入调试输出看一下sql的内容.
debug.print sql
rs.Open sql, conn, 3, 3
conn.Close
要更新数据库中已经存在的资料是用Update,并且要有where条件, 不然后update数据库中的所有数据. 建议SQL语句写成经下格式,方便检查并调试.
dim strSQL as string
strSQL="Update 职称申报 set "
strSQL=strSQL & "[姓名]='" & Text3.Text & "',"
strSQL=strSQL & "[性别] ='" & Combo1.Text & "',"
.
.
.
strSQL=strSQL & " where 能够确定数据库中唯一性的条件(如能自动增加的索引, 唯一的工号/学号等)"
rs.Open sql, conn, 3, 3
conn.Close

Answer 2

UPDATE 表名称 SET 列名称 = 新值 WHERE 列名称 = 某值

你少了where定位
查询后将查询到的记录赋值给textbox或combo 用rs对象

Answer 3

我帮你修改好。。。。。。