Kbase 35562: Example code of connection from Visual Basic to Progress through ODBC
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
10/05/1998 |
|
Solution ID: P5562
GOAL:
Example code of connection from Visual Basic to Progress through ODBC
FIX:
Dim cust As Recordset
Dim wrkODBC As Workspace
Dim conPubs As Connection
Public Sub openConnexion(vUser As String, vPwd As String, vDSN As
String)
On Error GoTo errODBC
Screen.MousePointer = vbHourglass
Set wrkODBC = CreateWorkspace("NewODBCWorkspace", "", "", dbUseODBC)
wrkODBC.DefaultCursorDriver = dbUseClientBatchCursor '
Set conPubs = wrkODBC.OpenConnection("Connection1", , , _
"ODBC;DATABASE=;DIL=READ COMMITTED;UID=" & Chr(34) & vUser &
Chr(34) & ";PWD=" & vPwd & ";DSN=" & vDSN)
Screen.MousePointer = vbNormal
Me.Caption = "Connected to sports2000"
Exit Sub
errODBC:
MsgBox Err.Description, vbCritical
Screen.MousePointer = vbNormal
End Sub