'======================================================================
'建立SQL连接函数
'参数:
' 1.strSQLServer----SQL服务器名(或IP地址)
' 2.strDB_Name ----要连接的数据库名
'======================================================================
Public Function Conn_DB(ByVal strSQLServer As String, Optional ByVal strDB_Name As String = "TEPCeMISInfoQuick") As Boolean
On Error GoTo err1
Dim SQL_string As String
Dim strCon As String
If Not Conn Is Nothing Then Set Conn = Nothing
Set Conn = New ADODB.Connection
简单用ADODB控件就可以了.又可以引用ADO.
dim con as new adodb.connection
dim ret as new adodb.recordset
con.connectionstring="driver={sql server};server=服务器名;uid=sa;pwd=;database=数据库名"
con.open
ret.open "表名",con