dbcon.bas

VB库存管理系统

Attribute VB_Name = "DBCon"
'******************************模块窗体,建立数据库连接**********************
'功能描述:全局声明,建立数据库的连接            '
'本模块修改于2007年2月27日                                              '
'********************************************************************** '
Public flag As Integer
Public gSQL As String
Public iflag As Integer
Public gUserName As String
Public gPWD As String
Public CurrenFilePath As String
Public Con As ADODB.Connection
Public rs As ADODB.Recordset
Public strConnection As String
Public SQL As String
Public Checks As Boolean
Public Const ginfo = "提示信息"
Public temp As String  '个修改出入库数量的中间变量


'数据库的操作流程如下:
'1、建立数据
'2、连接（打开）数据库
'3、操作数据库（如添加，查询，更新，删除等）
'4、关闭数据（释放内存）
'建议连接数据的函数
Public Function TransactSQL(ByVal SQL As String) As ADODB.Recordset

Dim strArray() As String
Set Con = New ADODB.Connection
Set rs = New ADODB.Recordset


On Error GoTo TransactSQL_Error
' 下面的一句是数据库的路径
  strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\kcgl.mdb"
  strArray = Split(SQL)
  '下面一句是打开数据库
  Con.Open strConnection
  Con.CursorLocation = adUseClient  '建立游标
  '下面的是操作数据库,像查询SQL,删除,修改,,等等...
  If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
    rs.Open Trim$(SQL), Con, adOpenStatic, adLockPessimistic
    Set TransactSQL = rs
    iflag = 1
  Else
    Con.Execute SQL
    iflag = 1
    
  End If
'关闭数据库连接,防止其它连接数据操作失败
TransactSQL_Exit:
    Set rs = Nothing
    Set Con = Nothing
    Exit Function
TransactSQL_Error:
    MsgBox "查询错误" & Err.Description
    iflag = 2
    Resume TransactSQL_Exit
End Function
'Public Sub main()
'   frmLogin.Show
'End Sub