jxcdb.bas

企业的进销存源码

Attribute VB_Name = "JxcDb"
'QQ:75347626
'MSN:[e-mail]
Option Explicit

Public Conn As ADODB.Connection
Public Cmd As ADODB.Command

Sub Main()
On Error GoTo Errorhandle

   ConnectionDb
   
   frmMain.Show

Exit Sub
Errorhandle:
   MsgBox "启动失败！"
End Sub

Private Sub ConnectionDb()
On Error GoTo Errorhandle

   Set Conn = New ADODB.Connection
   '恢复数据库后，需将这里的服务器名、数据库名、SA用户修改为实际正常的名称
   Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=911;Initial Catalog=JXCCJ;Data Source=hua05"
   
   Conn.Open
   Conn.CursorLocation = adUseClient
   
   
   Set Cmd = New ADODB.Command
   Set Cmd.ActiveConnection = Conn

Exit Sub
Errorhandle:
   Err.Raise vbObjectError + 1, , Err.Description
End Sub