access

ajing2004 2004-04-29 02:41:43
请教:在VB里如何实现往access里存储数据?除了用ADO之类的控件链接外还有别的办法吗?急!!!
...全文
13 2 点赞 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
liujiayu10 2004-04-29
Attribute VB_Name = "Mdl_DB"
Public conn As New ADODB.Connection
Sub Main()
Dim ConnectionString, MyDatabase, Mypath As String
'Mypath = App.EXEName
Mypath = App.Path
On Error GoTo ConnectErr
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Mypath & "\DB\data.mdb;Jet OLEDB:Database Password=aiwei"
With conn
.ConnectionString = ConnectionString
.ConnectionTimeout = 0
.Open
End With
FrmLogin.Show vbModal
If Not FrmLogin.OK Then
Set conn = Nothing
End
End If
FrmMain.Show
Exit Sub
ConnectErr:
MsgBox "数据库移动或不存在!", vbCritical, "警告"
End Sub
  • 打赏
  • 举报
回复
liujiayu10 2004-04-29
写一个CONN的类,公共的,以后只要用就行了!
  • 打赏
  • 举报
回复
相关推荐
发帖
Access
加入

7543

社区成员

Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
申请成为版主
帖子事件
创建了帖子
2004-04-29 02:41
社区公告
暂无公告