lcDbc = "C:\Program Files\microsoft visual foxpro 9\Samples\Data\testdata.dbc " lcConnStr = "DRIVER=Microsoft Visual FoxPro Driver; " + ; "Deleted=Yes; Null=Yes; Collate=Machine; " + ; "BackgroundFetch=No ; " + ; "Exclusive=No; " + ; "SourceType=DBC; " + ; "SourceDB=" + lcDbc lnConn = SqlStringConnect(lcConnStr) IF lnConn < 0 ? "Connection error" ? _processodbcerror() RETURN ENDIF TEXT TO lcSQL TEXTMERGE NOSHOW PRETEXT 7 SELECT * FROM Products ENDTEXT lnResult = SQLEXEC(lnConn , lcSql ) IF lnResult < 0 ? _processodbcerror() RETURN ENDIF BROWSE NOWAIT>
>CLEAR > >sDatabase = "C:\Projects\mydatabase.dbc" >sConnString = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB="+sDatabase+"; Exclusive=No; NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO;" > >iHandle = SQLCONNECT(sConnString, .T.) > >IF iHandle > 0 > > ? "Connect" > > SQLDISCONNECT(iHandle) > >ELSE > > ? "Unable to connect" > AERROR(aErrInfo) > ? aErrInfo[1] > ? aErrInfo[2] > > _cliptext = aErrInfo[2] > >ENDIF >>