Steven,
    here is a simple VB test application.

Set up qmilk or whatever in uci.config

Private Sub cmdConnect_Click()
On Error GoTo ErrorTrap
Dim strConnect As String
Dim sDSN As String, sAccount As String
Dim sUser As String, sPword As String
Dim time1 As Single, time2 As Single

Set UADODB = New ADODB.Connection
sDSN = "qmilk"
sAccount = "QMILK"
sUser = "jak"
sPword = "noddy"

time1 = Timer
With UADODB
'    .Provider = "Informix.UniOLEDB" ' this worked under 9.6
    .Provider = "IBM.UniOLEDB"
    strConnect = "DATA SOURCE=" & sDSN & "; " & _
                    "Location=" & sAccount & "; " & _
                    "USER ID=" & sUser & "; " & _
                    "PASSWORD=" & sPword & "; "
    .CursorLocation = adUseClient
    .ConnectionString = strConnect
    .ConnectionTimeout = 50
    .Open
End With
time2 = Timer - time1
lblConnect.Caption = Round(time2) & " seconds to connect"

txtResult.Text = "connected"

Exit Sub

ErrorTrap:
MsgBox "Error: " & Err.Number & " - " & Err.Description & vbCrLf & _
        "Source: " & Err.Source & vbCrLf & vbCrLf & _
        "Unable to connect! Aborting."

End Sub

Private Sub cmdDisconnect_Click()
On Error GoTo ErrorTrap

UADODB.Close
txtResult.Text = "disconnected"
Unload Me
Exit Sub

ErrorTrap:
MsgBox "Error: " & Err.Number & " - " & Err.Description & vbCrLf & _
        "Source: " & Err.Source & vbCrLf & vbCrLf & _
        "Unable to connect! Aborting."
End Sub

Private Sub Command1_Click()
On Error GoTo ErrorTrap
Set rstFiles = UADODB.Execute("SELECT SUPPLIER FROM MPSUPPLIER;")
lstTables.Clear

' load a listbox
If Not rstFiles Is Nothing Then
    rstFiles.MoveFirst
    Do Until rstFiles.EOF
        lstTables.AddItem rstFiles.Fields.Item(0)
        rstFiles.MoveNext
    Loop
    rstFiles.Close
End If
Set rstFiles = Nothing
lstTables.ListIndex = 0

' load a datagrid
Set dgTest.DataSource = UADODB.Execute("SELECT SUPPLIER, NAME FROM
MPSUPPLIER;")
Exit Sub

ErrorTrap:
MsgBox "Error: " & Err.Number & " - " & Err.Description & vbCrLf & _
        "Source: " & Err.Source & vbCrLf & vbCrLf & _
        "Failure to execute! Aborting."
End Sub


jak
----- Original Message ----- 
From: <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, April 27, 2004 8:06 AM
Subject: Calling UniData subroutines via OLEDB


> Hello
>
>
>
> We're struggling through the IBM documentation to figure out how to call a
> subroutine on UniData via OLEDB. (The OLDB.pdf)  I'm hoping some one can
> point us in the direction of some additional documentation or code
examples.
> I've begun searching in the archives, but only limited success so far.
>
>
>
> thanks in advance for any info.
>
>
>
> Steven Covey
>
> Senior Business Analyst
>
> JIA, Inc. (Jenkon)
>
> [EMAIL PROTECTED]
>
>
>
> -- 
> u2-users mailing list
> [EMAIL PROTECTED]
> http://www.oliver.com/mailman/listinfo/u2-users

-- 
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users

Reply via email to