易截截图软件、单文件、免安装、纯绿色、仅160KB

vb和access的问题

如何用vb解决以下问题:
1、如何用vb建立一个mdb数据库文件(3分)
2、在建立好的数据库中用代码建立数据库对象(表格,视图)
3、如何用vb代码为access数据库添加用户和组(5分)
4、如何用vb代码设置用户与组的权限(5分)
1 和 2 还好说,
3 和 4 access 支持么?

好像这几个都可用adox搞定,在论坛中搜索一下吧
Library ADOX
    C:\Program Files\Common Files\System\ado\msadox.dll
    Microsoft ADO Ext. 2.8 for DDL and Security

http://so.csdn.net/bbsSearchResult.aspx?q=adox&category=all&uname=&rname=&d1=2008-01-01&d2=2010-03-09&field=all


VB code:

'---------------------------------------------------------------------------------------
' 过程名 : CreateMdb
' 时间 : 2010-3-9 22:22
' 作者 : 杨过.网狐.cn
' 功能 :
' 说明 :
'---------------------------------------------------------------------------------------
'
Public Sub CreateMdb()

On Error GoTo CreateMdb_Error
'创建mdb
Dim cat As New ADOX.Catalog, strMdbFile As String
strMdbFile = App.Path & "\test.mdb"
cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strMdbFile

On Error GoTo 0
Exit Sub

CreateMdb_Error:

MsgBox "错误 " & Err.Number & " (" & Err.D


相关问答:

vb - VB / 非技术类

怎么把已知的数据保存成xml文件,现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
 xmlns:o=& ......

vb 中 - VB / 基础类

dim a as string,b as string,c as string
a="工程编号,单位工程名称,分部工程编号"
b="单位工程名称"
c="单位"
怎么才能判断出a字符串中存在b字符串,而不存在c字符串

看看i ......

vb操作excel - VB / 基础类

问题:
现在Access数据库中有两张表TableA和TableB
TableA中有记录如下:
字段1(Name) 字段2(Num)
  A 3
  A 4
  B 6
  ... ......

vb生成EXE - VB / 基础类

form1中有text1-8, 和command1 
text8中为程序代码(生成窗体为form2(已做好))
单击command1后将text2中的代码生成EXE到d:\ 并且text1-7分别对应
产品名 公司名 合法版权 合法商标 文件描述 注释 标题 ......

中山的VB程序员进来看一下 - VB / 非技术类

刚建了一个群:中山VB编程(105787219)
有在中山及中山周边的程序员请加入.大家一起探讨问题.合作项目.
尽管俺不是中山的,也进来蹭分……

佛山的行吗,广州的行吗?

友情支持
回复内容太短了! 

帮顶 ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号