用vb怎么打开access97,access中vbe窗口怎么打开
在VB中如何访问ACCESS,请 单纯 在此方面次教,小生不胜感激!
这个其实并不难，先在你的程序里添加ADO（怎么添加？工具箱上点右键，部件、MicroSoft ADO data control6.0,把它选中了）；然后把ADO拖到你的程序界面上，在上面点右键，ADO属性，点“使用连接字符串”旁边的“生成”按钮，选“MicroSoft JET 6.0”，下一步，选择你的Access数据库，就差不多了， 当然可以再测试一下。如果连接成功，那就OK了。至于以后怎么对ADO进行操作，一句话说不清楚，如果有兴趣可以与我讨论，我也可以把我以前做的简单的程序给你。Email:liuchuang31@sina.com
VB连接ACCESS数据库
1、假设有Text1（用来输入注册数字ID）、Text2（用来输入姓名）两个文本框，一个Command1按键（点击就实施写入数据库的操作）。
2、数据库已建立，名为tada.mdb，里面有一表名为data，并且表内至少有两个字段，字段名为“ID”（数值类型）以及“姓名”（文本类型）。
3、VB工程与数据库文件处于同一目录下
'工程-引用-Microsoft ActiveX Data Objects 2.X Library
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Dim strConn As String
Private Sub Form_Load()
' 连接数据库的字符串
' 连接带密码的数据库,直接在连接符后面加上Jet OLEDB:DataBase Password='您的密码'
' 连接Access97数据库需要使用Jet.OLEDB.3.5,Access2000和以上数据库使用Jet.OLEDB.4.0
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\tada.mdb;Persist Security Info=False"
Set Conn = New ADODB.Connection '=======
' 使用客户端数据游标
Conn.CursorLocation = adUseClient
' 打开Access的连接
Conn.Open strConn
' 如果RecordSet的状态不是关闭状态,则关闭Recordset
If Rs.State adStateClosed Then Rs.Close
Set Rs = New ADODB.Recordset '=======
' Recordset打开数据库表
Rs.Open "Select * from data", Conn, adOpenKeyset, adLockOptimistic
End Sub
Private Sub Command1_Click()
' 用Conn.Execute后带SQL语句来实行对数据库的操作
Conn.Execute "insert into data (ID,姓名) values(" Val(Text1) ",'" Text2.text "')"
End Sub
'关闭数据库代码（如果你需要的话）
'Set Rs = Nothing
'Set Conn = Nothing
关于VB6.0对access97的简单编程问题
最简单的最实用的方法：
在VB中引用EXCEL和ACCESS，然后定义
Dim ACCEapp As Access.Application
Dim EXCEapp As Excel.Application
Set ACCEapp = New Access.Application 'or set ACCEapp = getobject(,"Access.Application")
Set EXCEapp = New Excel.Application 'or set ACCEapp = getobject(,"Excel.Application")
EXCEapp.Visible = True
ACCEapp.Visible = True
……
将……改为你想要的代码即可。
如果这也不会，那你就分别在excel和access中将你的操作录制为宏，将宏粘贴到……处，并在每句前冠以“exceapp.”或“acceapp.”即可。
此法超便捷。