| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 985 人关注过本帖
标题:vb.net如何创建mdb文件并设置密码
只看楼主 收藏
zsdqxzxx
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2016-12-9
结帖率:50%
  问题点数:0  回复次数:5   
vb.net如何创建mdb文件并设置密码
vb.net如何创建mdb文件并设置密码,在不引用任何资源的情况下可以么?
搜索更多相关主题的帖子: 密码  如何  资源  
2017-01-30 21:15
梦幻倩影
Rank: 5Rank: 5
等 级:职业侠客
威 望:8
帖 子:162
专家分:352
注 册:2016-8-19
  得分:0 
http://bbs.csdn.net/topics/20392385
2017-02-12 15:06
zsdqxzxx
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2016-12-9
  得分:0 
看过那个网页的方法,问题是他要引用ado,我是说不引用任何资源可以么?
2017-02-15 19:19
zsdqxzxx
Rank: 1
等 级:新手上路
帖 子:10
专家分:0
注 册:2016-12-9
  得分:0 
经过摸索,我是这样做的
 Dim bd, cat As Object
        bd = "c:\data.mdb"
        cat = CreateObject("ADOX.Catalog")
        cat.Create("provider=microsoft.jet.oledb.4.0;;Jet OleDb:DataBase Password=940434;data source=" + bd)
       cat = Nothing
        Dim connstr As String
        Dim co, rs, aa As Object
        co = CreateObject("ADODB.Connection")
        connstr = "provider=microsoft.jet.oledb.4.0;;Jet OleDb:DataBase Password=940434;data source=" + bd
        co.Open(connstr)
        rs = CreateObject("Adodb.RecordSet")
        aa = "CREATE TABLE yhxx(id Counter,姓名 text(255),性别 text(255))"
         rs.Open(aa, co, 3, 3)
        rs = Nothing
        bd = Nothing
        aa = Nothing
        cat = Nothing
        connstr = Nothing
        co.close()
        co = Nothing
        GC.Collect()
2017-02-15 19:22
梦幻倩影
Rank: 5Rank: 5
等 级:职业侠客
威 望:8
帖 子:162
专家分:352
注 册:2016-8-19
  得分:0 
co = CreateObject("ADODB.Connection")
上面的代码还不是用到了ADO吗?
2017-02-16 09:21
com34314
Rank: 1
等 级:新手上路
帖 子:37
专家分:0
注 册:2017-5-23
  得分:0 
Dim bd, cat As Object
         bd = "c:\data.mdb"
         cat = CreateObject("ADOX.Catalog")
         cat.Create("provider=microsoft.jet.oledb.4.0;;Jet OleDb:DataBase Password=940434;data source=" + bd)
        cat = Nothing
         Dim connstr As String
         Dim co, rs, aa As Object
         co = CreateObject("ADODB.Connection")
         connstr = "provider=microsoft.jet.oledb.4.0;;Jet OleDb:DataBase Password=940434;data source=" + bd
         co.Open(connstr)
         rs = CreateObject("Adodb.RecordSet")
         aa = "CREATE www.34314.comTABLE yhxx(id Counter,姓名 text(255),性别 text(255))"
          rs.Open(aa, co, 3, 3)
         rs = Nothing
         bd = Nothing
         aa = Nothing
         cat = Nothing
         connstr = Nothing
         co.close()
         co = Nothing
         GC.Collect()
2017-05-23 21:02







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.050763 second(s), 8 queries.
Copyright©2004-2017, BCCN.NET, All Rights Reserved