Anónimo
Conexión SQL
Muy buenas noches Experto JAXI778
Disculpe tandras un ejejmplo de algun codigo para realizar una conexion a SQL desde VFP y algun codigo para realizar conexion con MySQL.
Y que el código no sea por conexión ODBC.
De ante ano gracias por la ayuda, y éxitos en todo lo que realices
Disculpe tandras un ejejmplo de algun codigo para realizar una conexion a SQL desde VFP y algun codigo para realizar conexion con MySQL.
Y que el código no sea por conexión ODBC.
De ante ano gracias por la ayuda, y éxitos en todo lo que realices
1 respuesta
Respuesta
1
Una conexión que tengo funcionando la logro mediante el siguiente código:
lcRuta = "c:\dd\SQL\"
lcDB = "gestion_comercial"
lcFile = lcRuta + lcDB + ".mdf"
?
*/ Pregunto si existe la base de datos la modifico
IF FILE(lcFile)
Thisform.Modifica_Db_Sql(lcDb)
RETURN
ENDIF
?
lcConnString ="DRIVER={SQL Server};SERVER=INVESTIGACION\SQLEXPRESS1;DATABASE=Master;UID=;PWD="
gnConnHandle = SQLSTRINGCONNECT(lcConnString )
IF gnConnHandle <= 0
= AERROR(aErrorArray)
= MESSAGEBOX(aErrorArray(2), 16, 'Error de conexión SQL Server')
RETURN
ELSE
lcmacro = Thisform.crea_db_sql(lcRuta, lcDB )
a = SQLEXEC(gnConnHandle, lcmacro)
IF a = 1
MESSAGEBOX("Base de datos creada correctamente", 64, "Hiupi !!")
ELSE
Thisform.Error_Sql()
RETURN
Endif
Endif
*salu2!
lcRuta = "c:\dd\SQL\"
lcDB = "gestion_comercial"
lcFile = lcRuta + lcDB + ".mdf"
?
*/ Pregunto si existe la base de datos la modifico
IF FILE(lcFile)
Thisform.Modifica_Db_Sql(lcDb)
RETURN
ENDIF
?
lcConnString ="DRIVER={SQL Server};SERVER=INVESTIGACION\SQLEXPRESS1;DATABASE=Master;UID=;PWD="
gnConnHandle = SQLSTRINGCONNECT(lcConnString )
IF gnConnHandle <= 0
= AERROR(aErrorArray)
= MESSAGEBOX(aErrorArray(2), 16, 'Error de conexión SQL Server')
RETURN
ELSE
lcmacro = Thisform.crea_db_sql(lcRuta, lcDB )
a = SQLEXEC(gnConnHandle, lcmacro)
IF a = 1
MESSAGEBOX("Base de datos creada correctamente", 64, "Hiupi !!")
ELSE
Thisform.Error_Sql()
RETURN
Endif
Endif
*salu2!