1.引用(ADO)
Project(工程)---Peferences(引用)---Microsoft ActiveX Data Objects 2.7 Library
2.在模块中建变量
Public g_AdoSqlCon As ADODB.Connection
3.建模块(Module)
Public Function SqlConnect_Db(SqlVar_Con As Connection) As Boolean
Dim intRec As Integer
Set SqlVar_Con = New Connection
SqlVar_Con.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=yxl;pwd=771112;Initial Catalog=ws;Data Source=10.10.66.246"
SqlConnect_Db = True
Exit Function
End Function
4.调用模块(Moudle)
Private Sub Form_Load()
Call SqlConnect_Db(g_AdoSqlCon)
End Sub
5.连数据库
Private Sub Command1_Click()
Dim rs As Recordset
Dim sql As String
Set rs = New Recordset
sql = "select * from cg"
rs.Open sql, g_AdoSqlCon
Text1.Text = rs!xm
rs.Close
Set rs = Nothing
End Sub