vb access 问题不知道怎么能连上数据库并且录入有附件求帮助

#2

owenlu19812014-04-20 23:48

没有Form1，连接Access可以试用ADO
先在工程->引用中选择
1. Microsoft ActiveX Data Object 6.1 Library
2. Microsoft ActiveX Data Object Recordset 6.0 Library

Dim Conn As New ADODB.Connection, Rs As New ADODB.Recordset
连接数据库
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & App.Path & "\Data.mdb;Persist Security Info=False"
Conn.Execute(StrSQL) 'StrSQL为插入记录语句，Insert into ....
也可以打开记录集进行插入
Rs.Open "Select * from Table_A",Conn,3,2
Rs.AddNew
Rs.Fields(0) = .......
Rs.Fields(1) = ......
......
Rs.Update
Rs.Refresh
Rs.Close

#3

fuhui9102014-04-21 21:35

回复 2 楼 owenlu1981

具体直接改改放进里面呗这么说我有点没明白以前做过也是稀里糊涂做成的这次就怎么都不好使了

#4

owenlu19812014-04-21 22:45

附件里没有窗体Form1,提供下

#5

fuhui9102014-04-21 22:53

回复 4 楼 owenlu1981

只有本站会员才能查看附件，请登录

#6

fuhui9102014-04-22 17:40

回复 4 楼 owenlu1981

有form1窗体啊。

#7

owenlu19812014-04-22 21:01

你得把窗体文件 .Frm 那个一起压缩........

#8

fuhui9102014-04-22 22:04

回复 7 楼 owenlu1981

只有本站会员才能查看附件，请登录

这回对了吧。。。。
我之前保存咋没有form呢。。。
额

#9

chen35232014-04-22 22:54

我是这样做的：
点击［工程］→［部件→点击“Microsoft ADO Data Control 6.0 (OLEDB)”前面的□→点击“确定”
点击工具箱中的ADOData控件→在窗体加入该控件
然后：
Private Sub Form_Activate()   ‘连接数据库
   Dim s As String
  s = App.Path & "\assart_1.mdb"    ’数据库放在编程文件夹内
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source =" + Chr(34) + s + Chr(34) & ";Jet OLEDB:Database Password=ch3523;"  '打开有密码数据库，密码为“ch3523”
  '"Data Source =" + Chr(34) + s + Chr(34) & ";Persist Security Info=False"  '打开无密码数据库
End Sub

增加记录代码如下：
          Adodc1.Recordset.AddNew
            With Adodc1
               .Recordset("文件名") = Trim$(Text1(0).Text)
               .Recordset("日期") = Trim$(Text1(1).Text)
               .Recordset("存档合号") = Trim$(Text1(2).Text)
               .Recordset("本合序号") = Trim$(Text1(3).Text)
               .Recordset("备注") = Trim$(Text1(4).Text)
               .Recordset.Update
            End With

#10

fuhui9102014-04-22 23:03

回复 9 楼 chen3523

我研究研究谢谢先

#11

wwebkb2014-05-24 01:20

不知道前辈你这个研究的咋样了，我毕设刚好有个界面跟您的一样

vb access 问题 不知道怎么能连上数据库 并且录入 有附件求帮助