Thư viện tri thức trực tuyến
Kho tài liệu với 50,000+ tài liệu học thuật
© 2023 Siêu thị PDF - Kho tài liệu học thuật hàng đầu Việt Nam
Source code Server.doc
Nội dung xem thử
Mô tả chi tiết
Source code Server
Sub connectserver(ddriver As String, sserver As String, uuid As String,
ppw As String, ddb As String)
On Error GoTo loi
If UCase$(ddriver) = "ORACLE ODBC DRIVER" Then
If oracleconn.State = 0 Then
showstatus "Connectting to Oracle server...", True
oracleconn.ConnectionString = "Driver=" & ddriver & ";Server="
& sserver & ";UID=" & uuid & ";PWD=" & ppw & ";DBQ=" & ddb &
";"""
oracleconn.ConnectionTimeout = 20
oracleconn.Open
Else
MsgBox "This server connected", vbInformation, "Connected"
showstatus "Server not ready", False
Exit Sub
End If
Else
If sqlconn.State = 0 Then
showstatus "Connectting to SQL server...", True
sqlconn.ConnectionString = "Driver=" & ddriver & ";Server=" &
sserver & ";UID=" & uuid & ";PWD=" & ppw & ";Database=" & ddb &
""
sqlconn.ConnectionTimeout = 20
sqlconn.Open
Else
MsgBox "This server connected", vbInformation, "Connected"
showstatus "Server not ready", False
Exit Sub
End If
End If
'Neu da ket noi duoc toi 2 server thi vao che do auto test