access

[ajing2004]

请教：在VB里如何实现往access里存储数据？除了用ADO之类的控件链接外还有别的办法吗？急！！！

[liujiayu10]

写一个CONN的类，公共的，以后只要用就行了！

[liujiayu10]

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