Very Computer

I an new to VB6 and ADO.  I am trying to connect a form to two different
databases and tables within those DBs.  I am using the DED.  The form is
connected to one db and I am using 2 command controls to do the following
****************************************************************************
************************************
Private Sub cmdByCO_Click()
Dim mDataMember As String
mDataMember = "Company"
' Experiment with changing the connection string
deLocal.cnnLocal.Close
deLocal.cnnLocal.ConnectionString = "C:\Documents and Settings\Button's\My
Documents\My VB Programs\Name Cards\Remote Data\NamesDB.mdb"
deLocal.cnnLocal.Open
'
deLocal.rsCompany.Open
deLocal.rsCompany.Requery
With txtLastName
    Set .DataSource = deLocal
    .DataMember = mDataMember
    .DataField = "LastName"
End With
'
With txtCompany
    Set .DataSource = deLocal
    .DataMember = mDataMember
    .DataField = "Company"
End With
'
ADONavBar1.ADORecordset = deLocal.rsCompany
Me.ADOActionBar1.ADORecordset = deLocal.rsCompany
Me.cmdByCO.Enabled = False
Me.cmdByLN.Enabled = True
'deLocal.rscomOne.Update
'deLocal.cnnLocal.Properties.Refresh
End Sub

Private Sub cmdByLN_Click()
Dim mDataMember As String
mDataMember = "LastName"
' Experiment with changing the connection string
deLocal.cnnLocal.Close
deLocal.cnnLocal.ConnectionString = "C:\Documents and Settings\Button's\My
Documents\My VB Programs\Name Cards\Remote Data\NamesDB.mdb"
deLocal.cnnLocal.Open
'
 deLocal.rsLastName.Open
deLocal.rsLastName.Requery
With txtLastName
    Set .DataSource = deLocal
    .DataMember = mDataMember
    .DataField = "LastName"
End With
'
With txtCompany
    Set .DataSource = deLocal
    .DataMember = mDataMember
    .DataField = "Company"
End With
ADONavBar1.ADORecordset = deLocal.rsLastName
Me.ADOActionBar1.ADORecordset = deLocal.rsLastName
Me.cmdByCO.Enabled = True
Me.cmdByLN.Enabled = False
End Sub
****************************************************************************
***********
I can execute either cmd and the connection string and table will change but
if I try to change back I get an error at the deLocal.rsCompany.Open or the
deLocal.rsLastName.Open .  The error tells me that the action is invalid.

Can anybody help.

Frank Button

What you have is not a valid connection string...Heres a trick to help with
the generation of connection strings

1) Create a New text document with no data - In explorer or through a right
click
2) Change the extension of the document to UDL
3) Double click on the UDL file
4) Create and test your connection
5) Open the file in a text editor and you will see a valid connection string

HTH

--
Veign
www.veign.com
<<NEW Link200 v2.0.2 Released>> - Bigger, Better, Cleaner!
www.veign.com/download_application.html#Link200
Code Samples & Sample Projects
http://www.veign.com/information/application/info_app.html
NEW! - Quick Reference Guides
http://www.veign.com/company_store.html
------

Quote:> I an new to VB6 and ADO.  I am trying to connect a form to two different
> databases and tables within those DBs.  I am using the DED.  The form is
> connected to one db and I am using 2 command controls to do the following

****************************************************************************

Quote:> ************************************
> Private Sub cmdByCO_Click()
> Dim mDataMember As String
> mDataMember = "Company"
> ' Experiment with changing the connection string
> deLocal.cnnLocal.Close
> deLocal.cnnLocal.ConnectionString = "C:\Documents and Settings\Button's\My
> Documents\My VB Programs\Name Cards\Remote Data\NamesDB.mdb"
> deLocal.cnnLocal.Open
> '
> deLocal.rsCompany.Open
> deLocal.rsCompany.Requery
> With txtLastName
>     Set .DataSource = deLocal
>     .DataMember = mDataMember
>     .DataField = "LastName"
> End With
> '
> With txtCompany
>     Set .DataSource = deLocal
>     .DataMember = mDataMember
>     .DataField = "Company"
> End With
> '
> ADONavBar1.ADORecordset = deLocal.rsCompany
> Me.ADOActionBar1.ADORecordset = deLocal.rsCompany
> Me.cmdByCO.Enabled = False
> Me.cmdByLN.Enabled = True
> 'deLocal.rscomOne.Update
> 'deLocal.cnnLocal.Properties.Refresh
> End Sub

> Private Sub cmdByLN_Click()
> Dim mDataMember As String
> mDataMember = "LastName"
> ' Experiment with changing the connection string
> deLocal.cnnLocal.Close
> deLocal.cnnLocal.ConnectionString = "C:\Documents and Settings\Button's\My
> Documents\My VB Programs\Name Cards\Remote Data\NamesDB.mdb"
> deLocal.cnnLocal.Open
> '
>  deLocal.rsLastName.Open
> deLocal.rsLastName.Requery
> With txtLastName
>     Set .DataSource = deLocal
>     .DataMember = mDataMember
>     .DataField = "LastName"
> End With
> '
> With txtCompany
>     Set .DataSource = deLocal
>     .DataMember = mDataMember
>     .DataField = "Company"
> End With
> ADONavBar1.ADORecordset = deLocal.rsLastName
> Me.ADOActionBar1.ADORecordset = deLocal.rsLastName
> Me.cmdByCO.Enabled = True
> Me.cmdByLN.Enabled = False
> End Sub

****************************************************************************

Quote:> ***********
> I can execute either cmd and the connection string and table will change
but
> if I try to change back I get an error at the deLocal.rsCompany.Open or
the
> deLocal.rsLastName.Open .  The error tells me that the action is invalid.

> Can anybody help.

> Frank Button