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
如果用ACCESS,要么写一个服务器程序专门操作数据库,要么设为共享接受每个客户程序的操作,这是不可取的。
比如:
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= \\server\data\date.mdb"
cn.Open
工程完工后要同时兼容oracle需要那些额外的工作?
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