RE: Does Informix OLEDB support OpenSchema?

This was works for me; DSN=IDS881 was setup from ODBC Manager. Routine; Private Sub cmdOK_Click() Dim cCmd As New ADODB.Command Dim rsRow As New ADODB.Recordset Dim cn As New ADODB.Connection Dim connectstring As String Dim strDB As String Dim strServer As String rem strDB = CStr(cboDatabase.Text) rem strServer = CStr(cboServer.Text) Rem connectstring = "Provider=Ifxoledbc; Data Source=tnusa0302_uneg@progen881; user id=gdf; password=newuser" Rem connectstring = "Provider=MSDASQL; DRIVER = {IBM INFORMIX 3.82 32BIT}; SERVER=progen881; UID=gdf; PWD=newuser" connectstring = "Provider=MSDASQL; DSN=IDS881; DATABASE=yourDatabse; UID=yourUserid; PWD=YourPassword" cn.Open (connectstring) Set rsRow = cn.OpenSchema(adSchemaTables) rsRow.MoveFirst While (Not rsRow.EOF) MsgBox rsRow.Fields(0) + " " + rsRow.Fields(1) + " " + rsRow.Fields(2) + " " + rsRow.Fields(3) rsRow.MoveNext Wend End Sub And Try to use this too; Informix 3.30: "Dsn='';Driver={INFORMIX 3.30 32 BIT};Host=hostname;Server=myserver;Service=service-name;Protocol=olsoctcp;Da tabase=mydb;UID=username;PWD=myPwd Regards, Roger -----Original Message----- From: owner-informix-list@iiug.org [mailto:owner-informix-list@iiug.org]On Behalf Of malky Sent: Saturday, June 07, 2003 11:18 PM To: informix-list@iiug.org Subject: Re: Does Informix OLEDB support OpenSchema? Thanks a lot for answering. i have tried your solution, and i'm sorry to tell it didn't help. i'm still getting the same error: "Object or provider is not capable of performing requested operation." anything else? smoeks@yahoo.com (Shawn Moe) wrote in message news:<7df6abab.0306041548.15f674aa@posting.google.com>... > Hi, > > It looks like the connection string is not correct for a connection > using the Informix OLEDB provider. There are some changes required > when switching between the OLEDB provider and the OLEDB bridge for > ODBC. The user should be > mentioned as "User Id = username" and the data source should be > mentioned as "Data Source = dbname@servername". > > With a correct connection string, we are able to see the desired > result, > i.e the list of tables in the current database. Here is the code we > used to verify. > > Private Sub Command1_Click() > Dim cCmd As New ADODB.Command > Dim rsRow As New ADODB.Recordset > Dim cn As New ADODB.Connection > Dim connectstring As String > > connectstring = "Provider=Ifxoledbc; Data > Source=common_db@foo9405; user id=informix;password=abc" > > cn.Open (connectstring) > > Set rsRow = cn.OpenSchema(adSchemaTables) > > rsRow.MoveFirst > While (Not rsRow.EOF) > MsgBox rsRow.Fields(0) + " " + rsRow.Fields(1) + " " + > rsRow.Fields(2) + " " + rsRow.Fields(3) > rsRow.MoveNext > Wend > > End Sub > > > Regards, > > Shawn Moe