module1.bas

用VB链接SQL SERVER数据库的一个很好的例子

Attribute VB_Name = "Module1"
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public addFlag As Boolean

Public Function OpenCn(ByVal Cip As String) As Boolean
Dim mag As String
On Error GoTo strerrmag
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 25
conn.Provider = "sqloledb"
conn.Properties("data source").Value = Cip    '服务器的名字
conn.Properties("initial catalog").Value = "zqoa"           '库名
'conn.Properties("integrated security").Value = "SSPI"   '登陆类型
conn.Properties("user id").Value = "sa"
conn.Properties("password").Value = ""
conn.Open
OpenCn = True
addFlag = True
Exit Function
strerrmag:
    mag = "Data can't connect"
    Call MsgBox(mag, vbOKOnly, "Error:Data connect")
    addFlag = False
    Exit Function
End Function