|
#2
ZHRXJR2017-03-03 23:37
你的这个代码现在基本上没人用了，现在使用ADO对象或ADO控件访问数据库。在界面添加引用-【工程】-【引用】，在引用对话框勾选：
只有本站会员才能查看附件，请 登录 ，这样就添加了ADO对象。 程序代码：Dim cn As New ADODB.Connection, RS As New ADODB.Recordset '首先定义二个ADO对象，cn是数据库连接对象，RS是记录集对象 cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\1.mdb;Persist Security Info=False" '连接数据库语句，这是2003版本以下的Access数据库连接，2007以上的语句不同 RS.Open "Select * From 数据库名", cn, 2, 3 '连接记录集，机连接数据表 '直接在登录界面输入以上代码，这是在VB6的应用，打开VB6的窗体即可 “用VB6打开access，但是会闪一下才会显示 登陆窗体”不知道你是怎么操作的。 |
Set New_mdb = CreateObject("access.application")
New_mdb.OpenCurrentDatabase App.Path & "\1.mdb", False, mypassword
New_mdb.UserControl = True
New_mdb.DoCmd.OpenForm 登陆窗体
用VB6打开access，但是会闪一下才会显示 登陆窗体 。请问如何直接显示 登陆窗体