API tools faq
paste
Advertisement
Guest User

Conexiones de VFP a distintos DMBS

a guest
Nov 24th, 2017
137
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualFoxPro 4.21 KB | None | 0 0
raw download clone embed print report
  1. #Conexion a MySQL/MariaDB
  2. *------------------------*
  3. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente, este se puede descargar del siguiente link: http://www.mysql.com/products/connector/odbc
  4.  
  5. * 2) Definicion de Variables
  6. lcServer  ="localhost"  &&puede ser una ip 127.0.0.1 // 192.168.1.1
  7. lcUserName="elNombredelUsuario"
  8. lcPassword="laClavedelUsuario"
  9. lcDataBase="laBasedeDatoaUsar"
  10.  
  11. * 3) Cadena de Conexion
  12. lcStringConnect = "DRIVER={MySQL ODBC 3.51 Driver};" + ;
  13.                    "SERVER=lcServer;" + ;
  14.                    "UID=lcUserName;" + ;
  15.                    "PWD=lcPassword;" + ;
  16.                    "DATABASE=lcDataBase;" + ;
  17.                    "OPTIONS=131329;"
  18. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  19.     "DRIVER={MySQL ODBC 3.51 Driver};" + ;
  20.                    "SERVER=lcServer;" + ;
  21.                    "UID=lcUserName;" + ;
  22.                    "PWD=lcPassword;" + ;
  23.                    "DATABASE=lcDataBase;" + ;
  24.                    "OPTIONS=131329;"
  25. ENDTEXT
  26.  
  27. * 4) La Conexion
  28. SQLSETPROP(0,"DispLogin" , 3 )
  29. lnHandle = SQLSTRINGCONNECT(lcStringConnect)
  30.  
  31. * 5) El Comando a ejecutar
  32. jnResultado = SQLEXEC(lnHandle,"select id, username from user_acl","crsUsuarios")
  33.  
  34. * 6) Desconexion
  35. SQLDISCONNECT(lnHandle)
  36.  
  37. * PD: sensible a mayusculas/minusculas para los nombres de tablas y campos
  38. *     aconcejo instalar en MariaDB el correspondiente ODBC descargado de su sitio web.
  39. *     OJO... Mucho OJO, si el SO es 32bits, instala ODBC de 32bits, ... No seas marmota!!!
  40. * url's::
  41. * fuente: https://comunidadvfp.blogspot.com/2006/06/vfp-y-mysql.html
  42. * ejemplo 1: https://comunidadvfp.blogspot.com/2014/09/navegacion-en-formularios-abm-en.html
  43. * ejemplo 2: https://comunidadvfp.blogspot.com/2007/06/cliente-servidor-parametrizacion-de.html
  44. * Instalando MySQL (sin XAMPP u otro Paquetes innecesarios): https://dev.mysql.com/doc/refman/5.5/en/windows-install-archive.html
  45. * Instalando MariaDB (como un verdadero development ;) ):    https://mariadb.com/kb/en/library/installing-mariadb-windows-zip-packages/
  46. * MariaDB vs MySQL: https://mariadb.com/kb/es/mariadb-versus-mysql-features/
  47.  
  48. #Conexion a SQL Server
  49. *---------------------*
  50. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente
  51.  
  52. * 2) IDEM
  53. * 3)
  54. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  55.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  56. ENDTEXT
  57.  
  58. * 4) al 6) IDEM
  59.  
  60. #Conexion a Foxpro
  61. *------------------*
  62. * Cadena de conexion:
  63. https://www.connectionstrings.com/visual-foxpro/
  64. .DBC
  65. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  66. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  67. ? SQLStringConnect( lcStringConnect )
  68.  
  69. Tablas Libres
  70. lcDbfDir = _samples + [Solution\Europa\]
  71. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  72. lh = SQLStringConnect( lcStringConnect )
  73. ? SQLTables(lh)
  74. Browse
  75. ? SQLExec( lh, "select * from music" )
  76. ? SqlResult.source
  77.  
  78.  
  79. #Conexion a SQLite
  80. *-----------------*
  81. https://www.connectionstrings.com/sqlite/
  82. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  83.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  84.  
  85. #Conexion a Postgre
  86. *-------------------*
  87. https://www.connectionstrings.com/postgre/
  88. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  89.  
  90. #Conexion a FireBird
  91. *-------------------*
  92. https://www.connectionstrings.com/firebird/
  93. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  94.                        + "USER=     " + lcUserName + ";" ;
  95.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  96.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  97.                        + "OPTIONS= 131329;
  98.  
  99. ... y mucho mas en
  100.     * https://www.connectionstrings.com
  101.     * http://www.carlprothman.net/Default.aspx?tabid=81
  102.     * http://www.devlist.com/ConnectionStringsPage.as
  103. *------------------------*
  104. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente, este se puede descargar del siguiente link: http://www.mysql.com/products/connector/odbc
  105.  
  106. * 2) Definicion de Variables
  107. lcServer  ="localhost"  &&puede ser una ip 127.0.0.1 // 192.168.1.1
  108. lcUserName="elNombredelUsuario"
  109. lcPassword="laClavedelUsuario"
  110. lcDataBase="laBasedeDatoaUsar"
  111.  
  112. * 3) Cadena de Conexion
  113. lcStringConnect = "DRIVER={MySQL ODBC 3.51 Driver};" + ;
  114.                    "SERVER=lcServer;" + ;
  115.                    "UID=lcUserName;" + ;
  116.                    "PWD=lcPassword;" + ;
  117.                    "DATABASE=lcDataBase;" + ;
  118.                    "OPTIONS=131329;"
  119. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  120.     "DRIVER={MySQL ODBC 3.51 Driver};" + ;
  121.                    "SERVER=lcServer;" + ;
  122.                    "UID=lcUserName;" + ;
  123.                    "PWD=lcPassword;" + ;
  124.                    "DATABASE=lcDataBase;" + ;
  125.                    "OPTIONS=131329;"
  126. ENDTEXT
  127.  
  128. * 4) La Conexion
  129. SQLSETPROP(0,"DispLogin" , 3 )
  130. lnHandle = SQLSTRINGCONNECT(lcStringConnect)
  131.  
  132. * 5) El Comando a ejecutar
  133. jnResultado = SQLEXEC(lnHandle,"select id, username from user_acl","crsUsuarios")
  134.  
  135. * 6) Desconexion
  136. SQLDISCONNECT(lnHandle)
  137.  
  138. * PD: sensible a mayusculas/minusculas para los nombres de tablas y campos
  139. *     aconcejo instalar en MariaDB el correspondiente ODBC descargado de su sitio web.
  140. *     OJO... Mucho OJO, si el SO es 32bits, instala ODBC de 32bits, ... No seas marmota!!!
  141. * url's::
  142. * fuente: https://comunidadvfp.blogspot.com/2006/06/vfp-y-mysql.html
  143. * ejemplo 1: https://comunidadvfp.blogspot.com/2014/09/navegacion-en-formularios-abm-en.html
  144. * ejemplo 2: https://comunidadvfp.blogspot.com/2007/06/cliente-servidor-parametrizacion-de.html
  145. * Instalando MySQL (sin XAMPP u otro Paquetes innecesarios): https://dev.mysql.com/doc/refman/5.5/en/windows-install-archive.html
  146. * Instalando MariaDB (como un verdadero development ;) ):    https://mariadb.com/kb/en/library/installing-mariadb-windows-zip-packages/
  147. * MariaDB vs MySQL: https://mariadb.com/kb/es/mariadb-versus-mysql-features/
  148.  
  149. #Conexion a SQL Server
  150. *---------------------*
  151. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente
  152.  
  153. * 2) IDEM
  154. * 3)
  155. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  156.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  157. ENDTEXT
  158.  
  159. * 4) al 6) IDEM
  160.  
  161. #Conexion a Foxpro
  162. *------------------*
  163. * Cadena de conexion:
  164. https://www.connectionstrings.com/visual-foxpro/
  165. .DBC
  166. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  167. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  168. ? SQLStringConnect( lcStringConnect )
  169.  
  170. Tablas Libres
  171. lcDbfDir = _samples + [Solution\Europa\]
  172. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  173. lh = SQLStringConnect( lcStringConnect )
  174. ? SQLTables(lh)
  175. Browse
  176. ? SQLExec( lh, "select * from music" )
  177. ? SqlResult.source
  178.  
  179.  
  180. #Conexion a SQLite
  181. *-----------------*
  182. https://www.connectionstrings.com/sqlite/
  183. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  184.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  185.  
  186. #Conexion a Postgre
  187. *-------------------*
  188. https://www.connectionstrings.com/postgre/
  189. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  190.  
  191. #Conexion a FireBird
  192. *-------------------*
  193. https://www.connectionstrings.com/firebird/
  194. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  195.                        + "USER=     " + lcUserName + ";" ;
  196.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  197.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  198.                        + "OPTIONS= 131329;
  199.  
  200. ... y mucho mas en
  201.     * https://www.connectionstrings.com
  202.     * http://www.carlprothman.net/Default.aspx?tabid=81
  203.     * http://www.devlist.com/ConnectionStringsPage.as
  204. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente, este se puede descargar del siguiente link: http://www.mysql.com/products/connector/odbc
  206. * 2) Definicion de Variables
  207. lcServer  ="localhost"  &&puede ser una ip 127.0.0.1 // 192.168.1.1
  208. lcUserName="elNombredelUsuario"
  209. lcPassword="laClavedelUsuario"
  210. lcDataBase="laBasedeDatoaUsar"
  211.  
  212. * 3) Cadena de Conexion
  213. lcStringConnect = "DRIVER={MySQL ODBC 3.51 Driver};" + ;
  214.                    "SERVER=lcServer;" + ;
  215.                    "UID=lcUserName;" + ;
  216.                    "PWD=lcPassword;" + ;
  217.                    "DATABASE=lcDataBase;" + ;
  218.                    "OPTIONS=131329;"
  219. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  220.     "DRIVER={MySQL ODBC 3.51 Driver};" + ;
  221.                    "SERVER=lcServer;" + ;
  222.                    "UID=lcUserName;" + ;
  223.                    "PWD=lcPassword;" + ;
  224.                    "DATABASE=lcDataBase;" + ;
  225.                    "OPTIONS=131329;"
  226. ENDTEXT
  227.  
  228. * 4) La Conexion
  229. SQLSETPROP(0,"DispLogin" , 3 )
  230. lnHandle = SQLSTRINGCONNECT(lcStringConnect)
  231.  
  232. * 5) El Comando a ejecutar
  233. jnResultado = SQLEXEC(lnHandle,"select id, username from user_acl","crsUsuarios")
  234.  
  235. * 6) Desconexion
  236. SQLDISCONNECT(lnHandle)
  237.  
  238. * PD: sensible a mayusculas/minusculas para los nombres de tablas y campos
  239. *     aconcejo instalar en MariaDB el correspondiente ODBC descargado de su sitio web.
  240. *     OJO... Mucho OJO, si el SO es 32bits, instala ODBC de 32bits, ... No seas marmota!!!
  241. * url's::
  242. * fuente: https://comunidadvfp.blogspot.com/2006/06/vfp-y-mysql.html
  243. * ejemplo 1: https://comunidadvfp.blogspot.com/2014/09/navegacion-en-formularios-abm-en.html
  244. * ejemplo 2: https://comunidadvfp.blogspot.com/2007/06/cliente-servidor-parametrizacion-de.html
  245. * Instalando MySQL (sin XAMPP u otro Paquetes innecesarios): https://dev.mysql.com/doc/refman/5.5/en/windows-install-archive.html
  246. * Instalando MariaDB (como un verdadero development ;) ):    https://mariadb.com/kb/en/library/installing-mariadb-windows-zip-packages/
  247. * MariaDB vs MySQL: https://mariadb.com/kb/es/mariadb-versus-mysql-features/
  248.  
  249. #Conexion a SQL Server
  250. *---------------------*
  251. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente
  252.  
  253. * 2) IDEM
  254. * 3)
  255. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  256.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  257. ENDTEXT
  258.  
  259. * 4) al 6) IDEM
  260.  
  261. #Conexion a Foxpro
  262. *------------------*
  263. * Cadena de conexion:
  264. https://www.connectionstrings.com/visual-foxpro/
  265. .DBC
  266. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  267. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  268. ? SQLStringConnect( lcStringConnect )
  269.  
  270. Tablas Libres
  271. lcDbfDir = _samples + [Solution\Europa\]
  272. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  273. lh = SQLStringConnect( lcStringConnect )
  274. ? SQLTables(lh)
  275. Browse
  276. ? SQLExec( lh, "select * from music" )
  277. ? SqlResult.source
  278.  
  279.  
  280. #Conexion a SQLite
  281. *-----------------*
  282. https://www.connectionstrings.com/sqlite/
  283. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  284.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  285.  
  286. #Conexion a Postgre
  287. *-------------------*
  288. https://www.connectionstrings.com/postgre/
  289. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  290.  
  291. #Conexion a FireBird
  292. *-------------------*
  293. https://www.connectionstrings.com/firebird/
  294. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  295.                        + "USER=     " + lcUserName + ";" ;
  296.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  297.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  298.                        + "OPTIONS= 131329;
  299.  
  300. ... y mucho mas en
  301.     * https://www.connectionstrings.com
  302.     * http://www.carlprothman.net/Default.aspx?tabid=81
  303.     * http://www.devlist.com/ConnectionStringsPage.as
  304. * 2) Definicion de Variables
  305. lcServer  ="localhost"  &&puede ser una ip 127.0.0.1 // 192.168.1.1
  306. lcUserName="elNombredelUsuario"
  307. lcPassword="laClavedelUsuario"
  308. lcDataBase="laBasedeDatoaUsar"
  310. * 3) Cadena de Conexion
  311. lcStringConnect = "DRIVER={MySQL ODBC 3.51 Driver};" + ;
  312.                    "SERVER=lcServer;" + ;
  313.                    "UID=lcUserName;" + ;
  314.                    "PWD=lcPassword;" + ;
  315.                    "DATABASE=lcDataBase;" + ;
  316.                    "OPTIONS=131329;"
  317. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  318.     "DRIVER={MySQL ODBC 3.51 Driver};" + ;
  319.                    "SERVER=lcServer;" + ;
  320.                    "UID=lcUserName;" + ;
  321.                    "PWD=lcPassword;" + ;
  322.                    "DATABASE=lcDataBase;" + ;
  323.                    "OPTIONS=131329;"
  324. ENDTEXT
  325.  
  326. * 4) La Conexion
  327. SQLSETPROP(0,"DispLogin" , 3 )
  328. lnHandle = SQLSTRINGCONNECT(lcStringConnect)
  329.  
  330. * 5) El Comando a ejecutar
  331. jnResultado = SQLEXEC(lnHandle,"select id, username from user_acl","crsUsuarios")
  332.  
  333. * 6) Desconexion
  334. SQLDISCONNECT(lnHandle)
  335.  
  336. * PD: sensible a mayusculas/minusculas para los nombres de tablas y campos
  337. *     aconcejo instalar en MariaDB el correspondiente ODBC descargado de su sitio web.
  338. *     OJO... Mucho OJO, si el SO es 32bits, instala ODBC de 32bits, ... No seas marmota!!!
  339. * url's::
  340. * fuente: https://comunidadvfp.blogspot.com/2006/06/vfp-y-mysql.html
  341. * ejemplo 1: https://comunidadvfp.blogspot.com/2014/09/navegacion-en-formularios-abm-en.html
  342. * ejemplo 2: https://comunidadvfp.blogspot.com/2007/06/cliente-servidor-parametrizacion-de.html
  343. * Instalando MySQL (sin XAMPP u otro Paquetes innecesarios): https://dev.mysql.com/doc/refman/5.5/en/windows-install-archive.html
  344. * Instalando MariaDB (como un verdadero development ;) ):    https://mariadb.com/kb/en/library/installing-mariadb-windows-zip-packages/
  345. * MariaDB vs MySQL: https://mariadb.com/kb/es/mariadb-versus-mysql-features/
  346.  
  347. #Conexion a SQL Server
  348. *---------------------*
  349. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente
  350.  
  351. * 2) IDEM
  352. * 3)
  353. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  354.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  355. ENDTEXT
  356.  
  357. * 4) al 6) IDEM
  358.  
  359. #Conexion a Foxpro
  360. *------------------*
  361. * Cadena de conexion:
  362. https://www.connectionstrings.com/visual-foxpro/
  363. .DBC
  364. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  365. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  366. ? SQLStringConnect( lcStringConnect )
  367.  
  368. Tablas Libres
  369. lcDbfDir = _samples + [Solution\Europa\]
  370. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  371. lh = SQLStringConnect( lcStringConnect )
  372. ? SQLTables(lh)
  373. Browse
  374. ? SQLExec( lh, "select * from music" )
  375. ? SqlResult.source
  376.  
  377.  
  378. #Conexion a SQLite
  379. *-----------------*
  380. https://www.connectionstrings.com/sqlite/
  381. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  382.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  383.  
  384. #Conexion a Postgre
  385. *-------------------*
  386. https://www.connectionstrings.com/postgre/
  387. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  388.  
  389. #Conexion a FireBird
  390. *-------------------*
  391. https://www.connectionstrings.com/firebird/
  392. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  393.                        + "USER=     " + lcUserName + ";" ;
  394.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  395.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  396.                        + "OPTIONS= 131329;
  397.  
  398. ... y mucho mas en
  399.     * https://www.connectionstrings.com
  400.     * http://www.carlprothman.net/Default.aspx?tabid=81
  401.     * http://www.devlist.com/ConnectionStringsPage.as
  402. * 3) Cadena de Conexion
  403. lcStringConnect = "DRIVER={MySQL ODBC 3.51 Driver};" + ;
  404.                    "SERVER=lcServer;" + ;
  405.                    "UID=lcUserName;" + ;
  406.                    "PWD=lcPassword;" + ;
  407.                    "DATABASE=lcDataBase;" + ;
  408.                    "OPTIONS=131329;"
  409. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  410.     "DRIVER={MySQL ODBC 3.51 Driver};" + ;
  411.                    "SERVER=lcServer;" + ;
  412.                    "UID=lcUserName;" + ;
  413.                    "PWD=lcPassword;" + ;
  414.                    "DATABASE=lcDataBase;" + ;
  415.                    "OPTIONS=131329;"
  416. ENDTEXT
  418. * 4) La Conexion
  419. SQLSETPROP(0,"DispLogin" , 3 )
  420. lnHandle = SQLSTRINGCONNECT(lcStringConnect)
  421.  
  422. * 5) El Comando a ejecutar
  423. jnResultado = SQLEXEC(lnHandle,"select id, username from user_acl","crsUsuarios")
  424.  
  425. * 6) Desconexion
  426. SQLDISCONNECT(lnHandle)
  427.  
  428. * PD: sensible a mayusculas/minusculas para los nombres de tablas y campos
  429. *     aconcejo instalar en MariaDB el correspondiente ODBC descargado de su sitio web.
  430. *     OJO... Mucho OJO, si el SO es 32bits, instala ODBC de 32bits, ... No seas marmota!!!
  431. * url's::
  432. * fuente: https://comunidadvfp.blogspot.com/2006/06/vfp-y-mysql.html
  433. * ejemplo 1: https://comunidadvfp.blogspot.com/2014/09/navegacion-en-formularios-abm-en.html
  434. * ejemplo 2: https://comunidadvfp.blogspot.com/2007/06/cliente-servidor-parametrizacion-de.html
  435. * Instalando MySQL (sin XAMPP u otro Paquetes innecesarios): https://dev.mysql.com/doc/refman/5.5/en/windows-install-archive.html
  436. * Instalando MariaDB (como un verdadero development ;) ):    https://mariadb.com/kb/en/library/installing-mariadb-windows-zip-packages/
  437. * MariaDB vs MySQL: https://mariadb.com/kb/es/mariadb-versus-mysql-features/
  438.  
  439. #Conexion a SQL Server
  440. *---------------------*
  441. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente
  442.  
  443. * 2) IDEM
  444. * 3)
  445. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  446.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  447. ENDTEXT
  448.  
  449. * 4) al 6) IDEM
  450.  
  451. #Conexion a Foxpro
  452. *------------------*
  453. * Cadena de conexion:
  454. https://www.connectionstrings.com/visual-foxpro/
  455. .DBC
  456. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  457. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  458. ? SQLStringConnect( lcStringConnect )
  459.  
  460. Tablas Libres
  461. lcDbfDir = _samples + [Solution\Europa\]
  462. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  463. lh = SQLStringConnect( lcStringConnect )
  464. ? SQLTables(lh)
  465. Browse
  466. ? SQLExec( lh, "select * from music" )
  467. ? SqlResult.source
  468.  
  469.  
  470. #Conexion a SQLite
  471. *-----------------*
  472. https://www.connectionstrings.com/sqlite/
  473. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  474.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  475.  
  476. #Conexion a Postgre
  477. *-------------------*
  478. https://www.connectionstrings.com/postgre/
  479. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  480.  
  481. #Conexion a FireBird
  482. *-------------------*
  483. https://www.connectionstrings.com/firebird/
  484. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  485.                        + "USER=     " + lcUserName + ";" ;
  486.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  487.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  488.                        + "OPTIONS= 131329;
  489.  
  490. ... y mucho mas en
  491.     * https://www.connectionstrings.com
  492.     * http://www.carlprothman.net/Default.aspx?tabid=81
  493.     * http://www.devlist.com/ConnectionStringsPage.as
  494. * 4) La Conexion
  495. SQLSETPROP(0,"DispLogin" , 3 )
  496. lnHandle = SQLSTRINGCONNECT(lcStringConnect)
  498. * 5) El Comando a ejecutar
  499. jnResultado = SQLEXEC(lnHandle,"select id, username from user_acl","crsUsuarios")
  500.  
  501. * 6) Desconexion
  502. SQLDISCONNECT(lnHandle)
  503.  
  504. * PD: sensible a mayusculas/minusculas para los nombres de tablas y campos
  505. *     aconcejo instalar en MariaDB el correspondiente ODBC descargado de su sitio web.
  506. *     OJO... Mucho OJO, si el SO es 32bits, instala ODBC de 32bits, ... No seas marmota!!!
  507. * url's::
  508. * fuente: https://comunidadvfp.blogspot.com/2006/06/vfp-y-mysql.html
  509. * ejemplo 1: https://comunidadvfp.blogspot.com/2014/09/navegacion-en-formularios-abm-en.html
  510. * ejemplo 2: https://comunidadvfp.blogspot.com/2007/06/cliente-servidor-parametrizacion-de.html
  511. * Instalando MySQL (sin XAMPP u otro Paquetes innecesarios): https://dev.mysql.com/doc/refman/5.5/en/windows-install-archive.html
  512. * Instalando MariaDB (como un verdadero development ;) ):    https://mariadb.com/kb/en/library/installing-mariadb-windows-zip-packages/
  513. * MariaDB vs MySQL: https://mariadb.com/kb/es/mariadb-versus-mysql-features/
  514.  
  515. #Conexion a SQL Server
  516. *---------------------*
  517. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente
  518.  
  519. * 2) IDEM
  520. * 3)
  521. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  522.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  523. ENDTEXT
  524.  
  525. * 4) al 6) IDEM
  526.  
  527. #Conexion a Foxpro
  528. *------------------*
  529. * Cadena de conexion:
  530. https://www.connectionstrings.com/visual-foxpro/
  531. .DBC
  532. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  533. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  534. ? SQLStringConnect( lcStringConnect )
  535.  
  536. Tablas Libres
  537. lcDbfDir = _samples + [Solution\Europa\]
  538. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  539. lh = SQLStringConnect( lcStringConnect )
  540. ? SQLTables(lh)
  541. Browse
  542. ? SQLExec( lh, "select * from music" )
  543. ? SqlResult.source
  544.  
  545.  
  546. #Conexion a SQLite
  547. *-----------------*
  548. https://www.connectionstrings.com/sqlite/
  549. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  550.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  551.  
  552. #Conexion a Postgre
  553. *-------------------*
  554. https://www.connectionstrings.com/postgre/
  555. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  556.  
  557. #Conexion a FireBird
  558. *-------------------*
  559. https://www.connectionstrings.com/firebird/
  560. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  561.                        + "USER=     " + lcUserName + ";" ;
  562.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  563.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  564.                        + "OPTIONS= 131329;
  565.  
  566. ... y mucho mas en
  567.     * https://www.connectionstrings.com
  568.     * http://www.carlprothman.net/Default.aspx?tabid=81
  569.     * http://www.devlist.com/ConnectionStringsPage.as
  570. * 5) El Comando a ejecutar
  571. jnResultado = SQLEXEC(lnHandle,"select id, username from user_acl","crsUsuarios")
  573. * 6) Desconexion
  574. SQLDISCONNECT(lnHandle)
  575.  
  576. * PD: sensible a mayusculas/minusculas para los nombres de tablas y campos
  577. *     aconcejo instalar en MariaDB el correspondiente ODBC descargado de su sitio web.
  578. *     OJO... Mucho OJO, si el SO es 32bits, instala ODBC de 32bits, ... No seas marmota!!!
  579. * url's::
  580. * fuente: https://comunidadvfp.blogspot.com/2006/06/vfp-y-mysql.html
  581. * ejemplo 1: https://comunidadvfp.blogspot.com/2014/09/navegacion-en-formularios-abm-en.html
  582. * ejemplo 2: https://comunidadvfp.blogspot.com/2007/06/cliente-servidor-parametrizacion-de.html
  583. * Instalando MySQL (sin XAMPP u otro Paquetes innecesarios): https://dev.mysql.com/doc/refman/5.5/en/windows-install-archive.html
  584. * Instalando MariaDB (como un verdadero development ;) ):    https://mariadb.com/kb/en/library/installing-mariadb-windows-zip-packages/
  585. * MariaDB vs MySQL: https://mariadb.com/kb/es/mariadb-versus-mysql-features/
  586.  
  587. #Conexion a SQL Server
  588. *---------------------*
  589. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente
  590.  
  591. * 2) IDEM
  592. * 3)
  593. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  594.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  595. ENDTEXT
  596.  
  597. * 4) al 6) IDEM
  598.  
  599. #Conexion a Foxpro
  600. *------------------*
  601. * Cadena de conexion:
  602. https://www.connectionstrings.com/visual-foxpro/
  603. .DBC
  604. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  605. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  606. ? SQLStringConnect( lcStringConnect )
  607.  
  608. Tablas Libres
  609. lcDbfDir = _samples + [Solution\Europa\]
  610. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  611. lh = SQLStringConnect( lcStringConnect )
  612. ? SQLTables(lh)
  613. Browse
  614. ? SQLExec( lh, "select * from music" )
  615. ? SqlResult.source
  616.  
  617.  
  618. #Conexion a SQLite
  619. *-----------------*
  620. https://www.connectionstrings.com/sqlite/
  621. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  622.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  623.  
  624. #Conexion a Postgre
  625. *-------------------*
  626. https://www.connectionstrings.com/postgre/
  627. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  628.  
  629. #Conexion a FireBird
  630. *-------------------*
  631. https://www.connectionstrings.com/firebird/
  632. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  633.                        + "USER=     " + lcUserName + ";" ;
  634.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  635.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  636.                        + "OPTIONS= 131329;
  637.  
  638. ... y mucho mas en
  639.     * https://www.connectionstrings.com
  640.     * http://www.carlprothman.net/Default.aspx?tabid=81
  641.     * http://www.devlist.com/ConnectionStringsPage.as
  642. * 6) Desconexion
  643. SQLDISCONNECT(lnHandle)
  645. * PD: sensible a mayusculas/minusculas para los nombres de tablas y campos
  646. *     aconcejo instalar en MariaDB el correspondiente ODBC descargado de su sitio web.
  647. *     OJO... Mucho OJO, si el SO es 32bits, instala ODBC de 32bits, ... No seas marmota!!!
  648. * url's::
  649. * fuente: https://comunidadvfp.blogspot.com/2006/06/vfp-y-mysql.html
  650. * ejemplo 1: https://comunidadvfp.blogspot.com/2014/09/navegacion-en-formularios-abm-en.html
  651. * ejemplo 2: https://comunidadvfp.blogspot.com/2007/06/cliente-servidor-parametrizacion-de.html
  652. * Instalando MySQL (sin XAMPP u otro Paquetes innecesarios): https://dev.mysql.com/doc/refman/5.5/en/windows-install-archive.html
  653. * Instalando MariaDB (como un verdadero development ;) ):    https://mariadb.com/kb/en/library/installing-mariadb-windows-zip-packages/
  654. * MariaDB vs MySQL: https://mariadb.com/kb/es/mariadb-versus-mysql-features/
  655.  
  656. #Conexion a SQL Server
  657. *---------------------*
  658. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente
  659.  
  660. * 2) IDEM
  661. * 3)
  662. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  663.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  664. ENDTEXT
  665.  
  666. * 4) al 6) IDEM
  667.  
  668. #Conexion a Foxpro
  669. *------------------*
  670. * Cadena de conexion:
  671. https://www.connectionstrings.com/visual-foxpro/
  672. .DBC
  673. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  674. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  675. ? SQLStringConnect( lcStringConnect )
  676.  
  677. Tablas Libres
  678. lcDbfDir = _samples + [Solution\Europa\]
  679. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  680. lh = SQLStringConnect( lcStringConnect )
  681. ? SQLTables(lh)
  682. Browse
  683. ? SQLExec( lh, "select * from music" )
  684. ? SqlResult.source
  685.  
  686.  
  687. #Conexion a SQLite
  688. *-----------------*
  689. https://www.connectionstrings.com/sqlite/
  690. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  691.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  692.  
  693. #Conexion a Postgre
  694. *-------------------*
  695. https://www.connectionstrings.com/postgre/
  696. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  697.  
  698. #Conexion a FireBird
  699. *-------------------*
  700. https://www.connectionstrings.com/firebird/
  701. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  702.                        + "USER=     " + lcUserName + ";" ;
  703.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  704.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  705.                        + "OPTIONS= 131329;
  706.  
  707. ... y mucho mas en
  708.     * https://www.connectionstrings.com
  709.     * http://www.carlprothman.net/Default.aspx?tabid=81
  710.     * http://www.devlist.com/ConnectionStringsPage.as
  711. * PD: sensible a mayusculas/minusculas para los nombres de tablas y campos
  712. *     aconcejo instalar en MariaDB el correspondiente ODBC descargado de su sitio web.
  713. *     OJO... Mucho OJO, si el SO es 32bits, instala ODBC de 32bits, ... No seas marmota!!!
  714. * url's::
  715. * fuente: https://comunidadvfp.blogspot.com/2006/06/vfp-y-mysql.html
  716. * ejemplo 1: https://comunidadvfp.blogspot.com/2014/09/navegacion-en-formularios-abm-en.html
  717. * ejemplo 2: https://comunidadvfp.blogspot.com/2007/06/cliente-servidor-parametrizacion-de.html
  718. * Instalando MySQL (sin XAMPP u otro Paquetes innecesarios): https://dev.mysql.com/doc/refman/5.5/en/windows-install-archive.html
  719. * Instalando MariaDB (como un verdadero development ;) ):    https://mariadb.com/kb/en/library/installing-mariadb-windows-zip-packages/
  720. * MariaDB vs MySQL: https://mariadb.com/kb/es/mariadb-versus-mysql-features/
  721.  
  722. #Conexion a SQL Server
  723. *---------------------*
  724. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente
  725.  
  726. * 2) IDEM
  727. * 3)
  728. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  729.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  730. ENDTEXT
  731.  
  732. * 4) al 6) IDEM
  733.  
  734. #Conexion a Foxpro
  735. *------------------*
  736. * Cadena de conexion:
  737. https://www.connectionstrings.com/visual-foxpro/
  738. .DBC
  739. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  740. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  741. ? SQLStringConnect( lcStringConnect )
  742.  
  743. Tablas Libres
  744. lcDbfDir = _samples + [Solution\Europa\]
  745. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  746. lh = SQLStringConnect( lcStringConnect )
  747. ? SQLTables(lh)
  748. Browse
  749. ? SQLExec( lh, "select * from music" )
  750. ? SqlResult.source
  751.  
  752.  
  753. #Conexion a SQLite
  754. *-----------------*
  755. https://www.connectionstrings.com/sqlite/
  756. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  757.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  758.  
  759. #Conexion a Postgre
  760. *-------------------*
  761. https://www.connectionstrings.com/postgre/
  762. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  763.  
  764. #Conexion a FireBird
  765. *-------------------*
  766. https://www.connectionstrings.com/firebird/
  767. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  768.                        + "USER=     " + lcUserName + ";" ;
  769.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  770.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  771.                        + "OPTIONS= 131329;
  772.  
  773. ... y mucho mas en
  774.     * https://www.connectionstrings.com
  775.     * http://www.carlprothman.net/Default.aspx?tabid=81
  776.     * http://www.devlist.com/ConnectionStringsPage.as
  777. *     aconcejo instalar en MariaDB el correspondiente ODBC descargado de su sitio web.
  778. *     OJO... Mucho OJO, si el SO es 32bits, instala ODBC de 32bits, ... No seas marmota!!!
  779. * url's::
  780. * fuente: https://comunidadvfp.blogspot.com/2006/06/vfp-y-mysql.html
  781. * ejemplo 1: https://comunidadvfp.blogspot.com/2014/09/navegacion-en-formularios-abm-en.html
  782. * ejemplo 2: https://comunidadvfp.blogspot.com/2007/06/cliente-servidor-parametrizacion-de.html
  783. * Instalando MySQL (sin XAMPP u otro Paquetes innecesarios): https://dev.mysql.com/doc/refman/5.5/en/windows-install-archive.html
  784. * Instalando MariaDB (como un verdadero development ;) ):    https://mariadb.com/kb/en/library/installing-mariadb-windows-zip-packages/
  785. * MariaDB vs MySQL: https://mariadb.com/kb/es/mariadb-versus-mysql-features/
  786.  
  787. #Conexion a SQL Server
  788. *---------------------*
  789. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente
  790.  
  791. * 2) IDEM
  792. * 3)
  793. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  794.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  795. ENDTEXT
  796.  
  797. * 4) al 6) IDEM
  798.  
  799. #Conexion a Foxpro
  800. *------------------*
  801. * Cadena de conexion:
  802. https://www.connectionstrings.com/visual-foxpro/
  803. .DBC
  804. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  805. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  806. ? SQLStringConnect( lcStringConnect )
  807.  
  808. Tablas Libres
  809. lcDbfDir = _samples + [Solution\Europa\]
  810. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  811. lh = SQLStringConnect( lcStringConnect )
  812. ? SQLTables(lh)
  813. Browse
  814. ? SQLExec( lh, "select * from music" )
  815. ? SqlResult.source
  816.  
  817.  
  818. #Conexion a SQLite
  819. *-----------------*
  820. https://www.connectionstrings.com/sqlite/
  821. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  822.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  823.  
  824. #Conexion a Postgre
  825. *-------------------*
  826. https://www.connectionstrings.com/postgre/
  827. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  828.  
  829. #Conexion a FireBird
  830. *-------------------*
  831. https://www.connectionstrings.com/firebird/
  832. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  833.                        + "USER=     " + lcUserName + ";" ;
  834.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  835.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  836.                        + "OPTIONS= 131329;
  837.  
  838. ... y mucho mas en
  839.     * https://www.connectionstrings.com
  840.     * http://www.carlprothman.net/Default.aspx?tabid=81
  841.     * http://www.devlist.com/ConnectionStringsPage.as
  842. *     OJO... Mucho OJO, si el SO es 32bits, instala ODBC de 32bits, ... No seas marmota!!!
  843. * url's::
  844. * fuente: https://comunidadvfp.blogspot.com/2006/06/vfp-y-mysql.html
  845. * ejemplo 1: https://comunidadvfp.blogspot.com/2014/09/navegacion-en-formularios-abm-en.html
  846. * ejemplo 2: https://comunidadvfp.blogspot.com/2007/06/cliente-servidor-parametrizacion-de.html
  847. * Instalando MySQL (sin XAMPP u otro Paquetes innecesarios): https://dev.mysql.com/doc/refman/5.5/en/windows-install-archive.html
  848. * Instalando MariaDB (como un verdadero development ;) ):    https://mariadb.com/kb/en/library/installing-mariadb-windows-zip-packages/
  849. * MariaDB vs MySQL: https://mariadb.com/kb/es/mariadb-versus-mysql-features/
  850.  
  851. #Conexion a SQL Server
  852. *---------------------*
  853. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente
  854.  
  855. * 2) IDEM
  856. * 3)
  857. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  858.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  859. ENDTEXT
  860.  
  861. * 4) al 6) IDEM
  862.  
  863. #Conexion a Foxpro
  864. *------------------*
  865. * Cadena de conexion:
  866. https://www.connectionstrings.com/visual-foxpro/
  867. .DBC
  868. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  869. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  870. ? SQLStringConnect( lcStringConnect )
  871.  
  872. Tablas Libres
  873. lcDbfDir = _samples + [Solution\Europa\]
  874. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  875. lh = SQLStringConnect( lcStringConnect )
  876. ? SQLTables(lh)
  877. Browse
  878. ? SQLExec( lh, "select * from music" )
  879. ? SqlResult.source
  880.  
  881.  
  882. #Conexion a SQLite
  883. *-----------------*
  884. https://www.connectionstrings.com/sqlite/
  885. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  886.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  887.  
  888. #Conexion a Postgre
  889. *-------------------*
  890. https://www.connectionstrings.com/postgre/
  891. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  892.  
  893. #Conexion a FireBird
  894. *-------------------*
  895. https://www.connectionstrings.com/firebird/
  896. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  897.                        + "USER=     " + lcUserName + ";" ;
  898.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  899.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  900.                        + "OPTIONS= 131329;
  901.  
  902. ... y mucho mas en
  903.     * https://www.connectionstrings.com
  904.     * http://www.carlprothman.net/Default.aspx?tabid=81
  905.     * http://www.devlist.com/ConnectionStringsPage.as
  906. * url's::
  907. * fuente: https://comunidadvfp.blogspot.com/2006/06/vfp-y-mysql.html
  908. * ejemplo 1: https://comunidadvfp.blogspot.com/2014/09/navegacion-en-formularios-abm-en.html
  909. * ejemplo 2: https://comunidadvfp.blogspot.com/2007/06/cliente-servidor-parametrizacion-de.html
  910. * Instalando MySQL (sin XAMPP u otro Paquetes innecesarios): https://dev.mysql.com/doc/refman/5.5/en/windows-install-archive.html
  911. * Instalando MariaDB (como un verdadero development ;) ):    https://mariadb.com/kb/en/library/installing-mariadb-windows-zip-packages/
  912. * MariaDB vs MySQL: https://mariadb.com/kb/es/mariadb-versus-mysql-features/
  913.  
  914. #Conexion a SQL Server
  915. *---------------------*
  916. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente
  917.  
  918. * 2) IDEM
  919. * 3)
  920. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  921.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  922. ENDTEXT
  923.  
  924. * 4) al 6) IDEM
  925.  
  926. #Conexion a Foxpro
  927. *------------------*
  928. * Cadena de conexion:
  929. https://www.connectionstrings.com/visual-foxpro/
  930. .DBC
  931. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  932. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  933. ? SQLStringConnect( lcStringConnect )
  934.  
  935. Tablas Libres
  936. lcDbfDir = _samples + [Solution\Europa\]
  937. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  938. lh = SQLStringConnect( lcStringConnect )
  939. ? SQLTables(lh)
  940. Browse
  941. ? SQLExec( lh, "select * from music" )
  942. ? SqlResult.source
  943.  
  944.  
  945. #Conexion a SQLite
  946. *-----------------*
  947. https://www.connectionstrings.com/sqlite/
  948. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  949.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  950.  
  951. #Conexion a Postgre
  952. *-------------------*
  953. https://www.connectionstrings.com/postgre/
  954. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  955.  
  956. #Conexion a FireBird
  957. *-------------------*
  958. https://www.connectionstrings.com/firebird/
  959. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  960.                        + "USER=     " + lcUserName + ";" ;
  961.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  962.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  963.                        + "OPTIONS= 131329;
  964.  
  965. ... y mucho mas en
  966.     * https://www.connectionstrings.com
  967.     * http://www.carlprothman.net/Default.aspx?tabid=81
  968.     * http://www.devlist.com/ConnectionStringsPage.as
  969. * fuente: https://comunidadvfp.blogspot.com/2006/06/vfp-y-mysql.html
  970. * ejemplo 1: https://comunidadvfp.blogspot.com/2014/09/navegacion-en-formularios-abm-en.html
  971. * ejemplo 2: https://comunidadvfp.blogspot.com/2007/06/cliente-servidor-parametrizacion-de.html
  972. * Instalando MySQL (sin XAMPP u otro Paquetes innecesarios): https://dev.mysql.com/doc/refman/5.5/en/windows-install-archive.html
  973. * Instalando MariaDB (como un verdadero development ;) ):    https://mariadb.com/kb/en/library/installing-mariadb-windows-zip-packages/
  974. * MariaDB vs MySQL: https://mariadb.com/kb/es/mariadb-versus-mysql-features/
  975.  
  976. #Conexion a SQL Server
  977. *---------------------*
  978. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente
  979.  
  980. * 2) IDEM
  981. * 3)
  982. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  983.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  984. ENDTEXT
  985.  
  986. * 4) al 6) IDEM
  987.  
  988. #Conexion a Foxpro
  989. *------------------*
  990. * Cadena de conexion:
  991. https://www.connectionstrings.com/visual-foxpro/
  992. .DBC
  993. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  994. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  995. ? SQLStringConnect( lcStringConnect )
  996.  
  997. Tablas Libres
  998. lcDbfDir = _samples + [Solution\Europa\]
  999. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  1000. lh = SQLStringConnect( lcStringConnect )
  1001. ? SQLTables(lh)
  1002. Browse
  1003. ? SQLExec( lh, "select * from music" )
  1004. ? SqlResult.source
  1005.  
  1006.  
  1007. #Conexion a SQLite
  1008. *-----------------*
  1009. https://www.connectionstrings.com/sqlite/
  1010. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  1011.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  1012.  
  1013. #Conexion a Postgre
  1014. *-------------------*
  1015. https://www.connectionstrings.com/postgre/
  1016. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  1017.  
  1018. #Conexion a FireBird
  1019. *-------------------*
  1020. https://www.connectionstrings.com/firebird/
  1021. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  1022.                        + "USER=     " + lcUserName + ";" ;
  1023.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  1024.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  1025.                        + "OPTIONS= 131329;
  1026.  
  1027. ... y mucho mas en
  1028.     * https://www.connectionstrings.com
  1029.     * http://www.carlprothman.net/Default.aspx?tabid=81
  1030.     * http://www.devlist.com/ConnectionStringsPage.as
  1031. *---------------------*
  1032. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente
  1033.  
  1034. * 2) IDEM
  1035. * 3)
  1036. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  1037.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  1038. ENDTEXT
  1039.  
  1040. * 4) al 6) IDEM
  1041.  
  1042. #Conexion a Foxpro
  1043. *------------------*
  1044. * Cadena de conexion:
  1045. https://www.connectionstrings.com/visual-foxpro/
  1046. .DBC
  1047. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  1048. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  1049. ? SQLStringConnect( lcStringConnect )
  1050.  
  1051. Tablas Libres
  1052. lcDbfDir = _samples + [Solution\Europa\]
  1053. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  1054. lh = SQLStringConnect( lcStringConnect )
  1055. ? SQLTables(lh)
  1056. Browse
  1057. ? SQLExec( lh, "select * from music" )
  1058. ? SqlResult.source
  1059.  
  1060.  
  1061. #Conexion a SQLite
  1062. *-----------------*
  1063. https://www.connectionstrings.com/sqlite/
  1064. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  1065.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  1066.  
  1067. #Conexion a Postgre
  1068. *-------------------*
  1069. https://www.connectionstrings.com/postgre/
  1070. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  1071.  
  1072. #Conexion a FireBird
  1073. *-------------------*
  1074. https://www.connectionstrings.com/firebird/
  1075. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  1076.                        + "USER=     " + lcUserName + ";" ;
  1077.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  1078.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  1079.                        + "OPTIONS= 131329;
  1080.  
  1081. ... y mucho mas en
  1082.     * https://www.connectionstrings.com
  1083.     * http://www.carlprothman.net/Default.aspx?tabid=81
  1084.     * http://www.devlist.com/ConnectionStringsPage.as
  1085. * 1) Para crear una conexión a mySQL deberá tener instalado el driver ODBC correspondiente
  1087. * 2) IDEM
  1088. * 3)
  1089. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  1090.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  1091. ENDTEXT
  1092.  
  1093. * 4) al 6) IDEM
  1094.  
  1095. #Conexion a Foxpro
  1096. *------------------*
  1097. * Cadena de conexion:
  1098. https://www.connectionstrings.com/visual-foxpro/
  1099. .DBC
  1100. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  1101. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  1102. ? SQLStringConnect( lcStringConnect )
  1103.  
  1104. Tablas Libres
  1105. lcDbfDir = _samples + [Solution\Europa\]
  1106. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  1107. lh = SQLStringConnect( lcStringConnect )
  1108. ? SQLTables(lh)
  1109. Browse
  1110. ? SQLExec( lh, "select * from music" )
  1111. ? SqlResult.source
  1112.  
  1113.  
  1114. #Conexion a SQLite
  1115. *-----------------*
  1116. https://www.connectionstrings.com/sqlite/
  1117. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  1118.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  1119.  
  1120. #Conexion a Postgre
  1121. *-------------------*
  1122. https://www.connectionstrings.com/postgre/
  1123. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  1124.  
  1125. #Conexion a FireBird
  1126. *-------------------*
  1127. https://www.connectionstrings.com/firebird/
  1128. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  1129.                        + "USER=     " + lcUserName + ";" ;
  1130.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  1131.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  1132.                        + "OPTIONS= 131329;
  1133.  
  1134. ... y mucho mas en
  1135.     * https://www.connectionstrings.com
  1136.     * http://www.carlprothman.net/Default.aspx?tabid=81
  1137.     * http://www.devlist.com/ConnectionStringsPage.as
  1138. * 2) IDEM
  1139. * 3)
  1140. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  1141.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  1142. ENDTEXT
  1143.  
  1144. * 4) al 6) IDEM
  1145.  
  1146. #Conexion a Foxpro
  1147. *------------------*
  1148. * Cadena de conexion:
  1149. https://www.connectionstrings.com/visual-foxpro/
  1150. .DBC
  1151. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  1152. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  1153. ? SQLStringConnect( lcStringConnect )
  1154.  
  1155. Tablas Libres
  1156. lcDbfDir = _samples + [Solution\Europa\]
  1157. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  1158. lh = SQLStringConnect( lcStringConnect )
  1159. ? SQLTables(lh)
  1160. Browse
  1161. ? SQLExec( lh, "select * from music" )
  1162. ? SqlResult.source
  1163.  
  1164.  
  1165. #Conexion a SQLite
  1166. *-----------------*
  1167. https://www.connectionstrings.com/sqlite/
  1168. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  1169.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  1170.  
  1171. #Conexion a Postgre
  1172. *-------------------*
  1173. https://www.connectionstrings.com/postgre/
  1174. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  1175.  
  1176. #Conexion a FireBird
  1177. *-------------------*
  1178. https://www.connectionstrings.com/firebird/
  1179. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  1180.                        + "USER=     " + lcUserName + ";" ;
  1181.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  1182.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  1183.                        + "OPTIONS= 131329;
  1184.  
  1185. ... y mucho mas en
  1186.     * https://www.connectionstrings.com
  1187.     * http://www.carlprothman.net/Default.aspx?tabid=81
  1188.     * http://www.devlist.com/ConnectionStringsPage.as
  1189. * 3)
  1190. TEXT TO lcStringConnect NOSHOW TEXTMERGE
  1191.     Driver={SQL Server};Server=<<ALLTRIM(lcServer)>>;Database=<<ALLTRIM(lcDataBase)>>;Uid=<<ALLTRIM(lcUserName)>>;Pwd=<<ALLTRIM(lcPassword)>>;
  1192. ENDTEXT
  1194. * 4) al 6) IDEM
  1195.  
  1196. #Conexion a Foxpro
  1197. *------------------*
  1198. * Cadena de conexion:
  1199. https://www.connectionstrings.com/visual-foxpro/
  1200. .DBC
  1201. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  1202. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  1203. ? SQLStringConnect( lcStringConnect )
  1204.  
  1205. Tablas Libres
  1206. lcDbfDir = _samples + [Solution\Europa\]
  1207. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  1208. lh = SQLStringConnect( lcStringConnect )
  1209. ? SQLTables(lh)
  1210. Browse
  1211. ? SQLExec( lh, "select * from music" )
  1212. ? SqlResult.source
  1213.  
  1214.  
  1215. #Conexion a SQLite
  1216. *-----------------*
  1217. https://www.connectionstrings.com/sqlite/
  1218. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  1219.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  1220.  
  1221. #Conexion a Postgre
  1222. *-------------------*
  1223. https://www.connectionstrings.com/postgre/
  1224. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  1225.  
  1226. #Conexion a FireBird
  1227. *-------------------*
  1228. https://www.connectionstrings.com/firebird/
  1229. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  1230.                        + "USER=     " + lcUserName + ";" ;
  1231.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  1232.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  1233.                        + "OPTIONS= 131329;
  1234.  
  1235. ... y mucho mas en
  1236.     * https://www.connectionstrings.com
  1237.     * http://www.carlprothman.net/Default.aspx?tabid=81
  1238.     * http://www.devlist.com/ConnectionStringsPage.as
  1239. * 4) al 6) IDEM
  1240.  
  1241. #Conexion a Foxpro
  1242. *------------------*
  1243. * Cadena de conexion:
  1244. https://www.connectionstrings.com/visual-foxpro/
  1245. .DBC
  1246. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  1247. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  1248. ? SQLStringConnect( lcStringConnect )
  1249.  
  1250. Tablas Libres
  1251. lcDbfDir = _samples + [Solution\Europa\]
  1252. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  1253. lh = SQLStringConnect( lcStringConnect )
  1254. ? SQLTables(lh)
  1255. Browse
  1256. ? SQLExec( lh, "select * from music" )
  1257. ? SqlResult.source
  1258.  
  1259.  
  1260. #Conexion a SQLite
  1261. *-----------------*
  1262. https://www.connectionstrings.com/sqlite/
  1263. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  1264.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  1265.  
  1266. #Conexion a Postgre
  1267. *-------------------*
  1268. https://www.connectionstrings.com/postgre/
  1269. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  1270.  
  1271. #Conexion a FireBird
  1272. *-------------------*
  1273. https://www.connectionstrings.com/firebird/
  1274. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  1275.                        + "USER=     " + lcUserName + ";" ;
  1276.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  1277.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  1278.                        + "OPTIONS= 131329;
  1279.  
  1280. ... y mucho mas en
  1281.     * https://www.connectionstrings.com
  1282.     * http://www.carlprothman.net/Default.aspx?tabid=81
  1283.     * http://www.devlist.com/ConnectionStringsPage.as
  1284. *------------------*
  1285. * Cadena de conexion:
  1286. https://www.connectionstrings.com/visual-foxpro/
  1287. .DBC
  1288. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  1289. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  1290. ? SQLStringConnect( lcStringConnect )
  1291.  
  1292. Tablas Libres
  1293. lcDbfDir = _samples + [Solution\Europa\]
  1294. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  1295. lh = SQLStringConnect( lcStringConnect )
  1296. ? SQLTables(lh)
  1297. Browse
  1298. ? SQLExec( lh, "select * from music" )
  1299. ? SqlResult.source
  1300.  
  1301.  
  1302. #Conexion a SQLite
  1303. *-----------------*
  1304. https://www.connectionstrings.com/sqlite/
  1305. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  1306.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  1307.  
  1308. #Conexion a Postgre
  1309. *-------------------*
  1310. https://www.connectionstrings.com/postgre/
  1311. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  1312.  
  1313. #Conexion a FireBird
  1314. *-------------------*
  1315. https://www.connectionstrings.com/firebird/
  1316. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  1317.                        + "USER=     " + lcUserName + ";" ;
  1318.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  1319.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  1320.                        + "OPTIONS= 131329;
  1321.  
  1322. ... y mucho mas en
  1323.     * https://www.connectionstrings.com
  1324.     * http://www.carlprothman.net/Default.aspx?tabid=81
  1325.     * http://www.devlist.com/ConnectionStringsPage.as
  1326. * Cadena de conexion:
  1327. https://www.connectionstrings.com/visual-foxpro/
  1328. .DBC
  1329. lcDbc = _samples + [Tastrade\Data\TasTrade.dbc]
  1330. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=] + lcDbc + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  1331. ? SQLStringConnect( lcStringConnect )
  1332.  
  1333. Tablas Libres
  1334. lcDbfDir = _samples + [Solution\Europa\]
  1335. lcStringConnect = [Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=] + lcDbfDir + [;Exclusive=No;NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO]
  1336. lh = SQLStringConnect( lcStringConnect )
  1337. ? SQLTables(lh)
  1338. Browse
  1339. ? SQLExec( lh, "select * from music" )
  1340. ? SqlResult.source
  1341.  
  1342.  
  1343. #Conexion a SQLite
  1344. *-----------------*
  1345. https://www.connectionstrings.com/sqlite/
  1346. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  1347.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  1348.  
  1349. #Conexion a Postgre
  1350. *-------------------*
  1351. https://www.connectionstrings.com/postgre/
  1352. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  1353.  
  1354. #Conexion a FireBird
  1355. *-------------------*
  1356. https://www.connectionstrings.com/firebird/
  1357. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  1358.                        + "USER=     " + lcUserName + ";" ;
  1359.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  1360.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  1361.                        + "OPTIONS= 131329;
  1362.  
  1363. ... y mucho mas en
  1364.     * https://www.connectionstrings.com
  1365.     * http://www.carlprothman.net/Default.aspx?tabid=81
  1366.     * http://www.devlist.com/ConnectionStringsPage.as
  1367. *-----------------*
  1368. https://www.connectionstrings.com/sqlite/
  1369. lcStringConnect ="DRIVER=SQLite3 ODBC Driver;Database=d:\mydb.db;LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
  1370.                 + "Uid="+lcUserName+";Pwd="+lcPassword
  1371.  
  1372. #Conexion a Postgre
  1373. *-------------------*
  1374. https://www.connectionstrings.com/postgre/
  1375. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  1376.  
  1377. #Conexion a FireBird
  1378. *-------------------*
  1379. https://www.connectionstrings.com/firebird/
  1380. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  1381.                        + "USER=     " + lcUserName + ";" ;
  1382.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  1383.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  1384.                        + "OPTIONS= 131329;
  1385.  
  1386. ... y mucho mas en
  1387.     * https://www.connectionstrings.com
  1388.     * http://www.carlprothman.net/Default.aspx?tabid=81
  1389.     * http://www.devlist.com/ConnectionStringsPage.as
  1390. *-------------------*
  1391. https://www.connectionstrings.com/postgre/
  1392. lcStringConnect = "Driver={PostgreSQL ANSI};Server="+lcServer+";Database="+lcDataBase+";Uid="+lcUserName+";Pwd="+lcPassword
  1393.  
  1394. #Conexion a FireBird
  1395. *-------------------*
  1396. https://www.connectionstrings.com/firebird/
  1397. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  1398.                        + "USER=     " + lcUserName + ";" ;
  1399.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  1400.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  1401.                        + "OPTIONS= 131329;
  1402.  
  1403. ... y mucho mas en
  1404.     * https://www.connectionstrings.com
  1405.     * http://www.carlprothman.net/Default.aspx?tabid=81
  1406.     * http://www.devlist.com/ConnectionStringsPage.as
  1407. *-------------------*
  1408. https://www.connectionstrings.com/firebird/
  1409. lcCadenaConexion = "DRIVER={Firebird/Interbase(r) driver};" ;
  1410.                        + "USER=     " + lcUserName + ";" ;
  1411.                        + "PASSWORD= " + lcPassword + ";" ;                                      
  1412.                        + "DATABASE= " + "C:\Archivos de programa\Firebird\Firebird_2_5\examples\empbuild\Employee.fdb" + ";" ;
  1413.                        + "OPTIONS= 131329;
  1414.  
  1415. ... y mucho mas en
  1416.     * https://www.connectionstrings.com
  1417.     * http://www.carlprothman.net/Default.aspx?tabid=81
  1418.     * http://www.devlist.com/ConnectionStringsPage.aspx
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!