conn.bas

一个酒厂派车单管理系统,很方便的系统

Attribute VB_Name = "Conn"
Public Connstr As String
Public Conn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public DBname As String
Public DBpass, Sql As String
'Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Public Sub DBconn()
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBname & ";Jet OLEDB:Database Password=" & Trim(DBpass)
End Sub