Henry,
Instead of ([Access FinData]) you need a valid datasource name as it is in the ODBC ini file.
Try this:
Local lnConnect, lcTable
lnConnect = SqlConnect() && here you should see the dialog to choose from connections or datasources
Access_FinData=sqlgetprop(lnConnect,"DATASOURCE")
* Create a named connection
Create Connection FinConnect datasource (Access_FinData)
* Get a list of tables in Access database
=SqlTables(lnConnect,[TABLE],[crsAccess])
* Popluate preview grid
lcTable = [activity]
* Create View
Create Sql View vPreviewAccess connection FinConnect As ;
Select * From (lcTable) Order By 1
Use vPreviewAccess In 0
*---
Good luck
>Hi,
>
>I am having a problem with the following code:
>
>=============================
>Local lnConnect, lcTable
>* Create a named connection
>Create Connection FinConnect ;
> DataSource [Access FinData]
>* Create a connection handle for the SqlTables command
>lnConnect = SqlConnect([Access FinData])
>* Get a list of tables in Access database
>=SqlTables(lnConnect,[TABLE],[crsAccess])
>*Thisform.FillAccess() && Fills Access list of tables
>* Popluate preview grid
>*lcTable = Thisform.aList1[Max(1,Thisform.lstAccess.Listindex)]
>lcTable = [activity]
>* Create View
>Create Sql View ([vPreviewAccess]) Remote ;
> Connection FinConnect Share ;
> As Select * From &lcTable Order By 1
>Use vPreviewAccess In 0
>*Thisform.grdAccess.RecordSource = [vPreviewAccess]
>=============================
>
>Problem:
>The ODBC datasource has no Database name entered. So, it should prompt
>for one. Why is it prompting 3 times ?
>
>Any help would be appreciated,
>
>Henry
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement