access

ajing2004 2004-04-29 02:41:43
请教:在VB里如何实现往access里存储数据?除了用ADO之类的控件链接外还有别的办法吗?急!!!
...全文
46 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
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的类,公共的,以后只要用就行了!

7,732

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
社区管理员
  • Access
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧