[已解决]为什么复选框部分我用土办法提交时写不入数据库呢？但是可以清空。谢谢

hwc2ycy

1. Function getRecordCount() As Long
   
2.     Dim AccessFile As String, Database As String
   
3.     Dim StrConn  As String, strSql   As String
   
4.     Dim AdoxCat As Object
   
5.     Dim AdoCmd As Object
   
6.     Dim AdoConn As Object
   
7.     Dim AdoRst As Object
   
8. 
   
9. 
   
10.     On Error GoTo Errcheck
    
11.    
    
12.     AccessFile = ThisWorkbook.Path & "\gkzp.mdb"
    
13.     Database = "gkzp"
    
14.    
    
15.     If Dir(AccessFile) = "" Then
    
16.         '检测文件是否存在，不存在则创建数据库
    
17.        Set AdoxCat = CreateObject("adox.catalog")
    
18.         AdoxCat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AccessFile & ";Jet OLEDB:Database Password=695360052;"
    
19.         Set AdoConn = AdoxCat.ActiveConnection
    
20.         Set AdoCmd = CreateObject("ADODB.Command")
    
21.         Set AdoCmd.ActiveConnection = AdoConn
    
22.         AdoCmd.CommandText = "CREATE TABLE " & Database & _
    
23.                              " (报名序号 text(3),报名时间 datetime ,报考类型 text(30),操作员 text(6),姓名 text(8),性别 text(2),出生日期 datetime ,籍贯 text(30),民族 text(10)," & _
    
24.                              "政治面貌 text(20),健康状况 text(20),参加工作时间 datetime ,最高学历毕业时间 datetime ,移动电话 text(12),固定电话 text(11),身份证号 text(18),电子邮箱 text(20)," & _
    
25.                              "现工作单位及职务（或家庭住址） text(50),报考职位 text(50),全日制教育 text(50),全日制教育毕业院校及专业 text(50),在职制教育 text(50),在职教育毕业院校及专业 text(50),学习工作简历 text(50),提供材料 text(120),资格审查情况 text(10)"
    
26.         AdoCmd.Execute , , 1    'adCmdText
    
27.         Set AdoCmd = Nothing
    
28.         Set AdoxCat = Nothing
    
29.         Set AdoConn = Nothing
    
30.         getRecordCount = 1
    
31.         Exit Function
    
32.     End If
    
33. 
    
34.     'StrConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source='" & _
    
35.               AccessFile & "';jet oledb:Database Password=695360052"
    
36.               
    
37.      StrConn = "Provider= Microsoft.Jet.OLEDB.4.0;" & _
    
38.                       "Data Source='" & AccessFile & "';jet oledb:Database Password=695360052"
    
39. 
    
40.     Set AdoConn = CreateObject("ADODB.Connection")
    
41.     With AdoConn
    
42.         .CursorLocation = 3
    
43.         .Mode = 3
    
44.         .CommandTimeout = 5
    
45.         .connectionTimeout = 5
    
46.         .Open StrConn
    
47.     End With
    
48. 
    
49.     strSql = "select * from " & Database
    
50. 
    
51.     Set AdoRst = AdoConn.Execute(strSql)
    
52.     getRecordCount = AdoRst.RecordCount + 1
    
53. 
    
54.     AdoConn.Close
    
55.     Set AdoConn = Nothing
    
56.     Exit Function
    
57. 
    
58. Errcheck:
    
59.     MsgBox Err.Number & vbNewLine & _
    
60.            Err.Description
    
61. End Function
    

复制代码

hwc2ycy

错误越积越多了。

历遍工作表提取同类数据附件.rar (166.42 KB, 下载次数: 3)

2013-6-5 23:31 上传

点击文件名下载附件

qinhuan66

hwc2ycy 发表于 2013-6-5 23:31
错误越积越多了。

老师谢谢您  谢谢