Kbase P5562: SQL: Sample Visual Basic code to establish an ODBC connection to a Progress or an OpenEdge database
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
2/23/2010 |
|
Status: Verified
GOAL:
SQL: Sample Visual Basic code to establish an ODBC connection to a Progress or an OpenEdge database using a DSN
GOAL:
How to connect a Visual Basic client to a Progress or an OpenEdge database using a DSN?
GOAL:
What is the Visual Basic syntax for a DSN ODBC connection string to a Progress or an OpenEdge database?
FACT(s) (Environment):
Windows
Progress 9.x
OpenEdge 10.x
FIX:
The following code demonstrates the Visual Basic syntax needed to establish a DSN based ODBC connection to a Progress or an OpenEdge database:
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