mainmoudle.bas

本软件可以实现从sqlserver数据库的表中导出所有的数据到excel表格中

Attribute VB_Name = "mainmoudle"

Global VarDriver As String 'DATABASE DRIVER
Global VarServer As String 'SERVER NAME
Global VarDbase As String 'DATABASE NAME
Global VarUser As String 'UESR NAME
Global VarPassword As String 'UESR PASSWORD
Global VarDbaseTable As String 'DATABASE TABLE NAME
Global BSqlConnection As Boolean 'CONNECT SQL SERVER 2000 TRUE OR FALSE
Global strPortCfg(1 To 8) As String
Global blnPortOpen(1 To 8) As Boolean   'Set to 1 while the port open
Global strPortBaud(1 To 8) As String    'Baud rate setting


Public Function getlink() As Boolean '连接数据库，正常返回真
'如果不处于连接状态，则进行连接
'conn是全局对象
On Error GoTo gherr
If conn.State <> adStateOpen Then
With conn
.ConnectionString = connstring
.ConnectionTimeout = 6
.Open '连接
End With
End If
If conn.State = adStateOpen Then
getlink = True
Else
getlink = False
End If
Exit Function
gherr:
getlink = False
MsgBox Err.Description
End Function