Wednesday, 10 September 2014
09:07
Sandip Pandey
No comments
Sample Module for Connection vb6 MSSQL 2008
Public Sub Main()
On Error GoTo ErrorHandler
stmt = "Provider=SQLOLEDB.1;Persist Security Info=true;Initial Catalog=[databasename];
user id=[username];PASSWORD=[password];
Data Source=[domain name or IP];MultipleActiveResultSets=True;"
GlobCon.ConnectionString = stmt
GlobCon.Open
Exit Sub
ErrorHandler:
MsgBox Err.Description, vbCritical
End Sub
Public Sub Main()
On Error GoTo ErrorHandler
stmt = "Provider=SQLOLEDB.1;Persist Security Info=true;Initial Catalog=[databasename];
user id=[username];PASSWORD=[password];
Data Source=[domain name or IP];MultipleActiveResultSets=True;"
GlobCon.ConnectionString = stmt
GlobCon.Open
Exit Sub
ErrorHandler:
MsgBox Err.Description, vbCritical
End Sub
Monday, 8 September 2014
Subscribe to:
Posts (Atom)

