Saludos foro,
Actualmente manejo una Base de Datos MS SQL Server y necesitamos desarrollar una aplicacion que conecte con la misma. Obviamente TDolphin no es opcion y cambiar a MySQL tampoco, asi que toca ADO o algun otra herramienta de fw para conectar.
Podria alguien aportarme como maneja este tipo de conexion entre una aplicacion y la BBDD
Gracias de antemano
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
Si te conectas con ADO no hay mayores problemas. Busca la cadena de conexi贸n y sales andando.
Saludos
Gracias Horacio
Tienes algun ejemplo?
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
Gracias Antonio,
Lo revisare
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
oVarGlobales : oCon := CreateObject("ADODB.Connection")
oVarGlobales : oCon : Open := ( "Driver={MySQL ODBC 5.1 Driver};Server=" + cHost + ";Database=mysql;User=" + cUser + ";Password=" + cPassw + ";Option=3;" )Gracias Horacio
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity
otro ejemplo
oApp:ConnectionString := "Driver={SQL Server};Server=192.168.1.100;" + ;
"Trusted_Connection=no;Database=polizas" + ;
";Uid=contab;Pwd=Polizas123;"
ADOCONNECT oCn TO MSSQL SERVER GNRHP\SQLEXPRESS database FWH USER SA PASSWORD mypwd
// where server is "GNRHP\SQLEXPRESS', database is "FWH", usernaem is "SA' and password is "mypwd"
if oCn == nil
MsgIbfo( "failed to connect" )
return nil
else
aTables := FW_AdoTables( oCn )
XBROWSER aTables // show list of tables in database
oRs := FW_OpenRecordSet( oCn, "CUSTOMER" )
XBROWSER oRs AUTOSORT // open and show one tablee
oRs:Close()
oCn:Close()
endifAntonio,
Con Fivedbu me arroja el siguiente error
Path and name: D:\fivedbu_20140730\fivedbu.exe (32 bits)
Size: 5,550,080 bytes
Compiler version: Harbour 3.2.0dev (r1406271520)
FiveWin Version: FWH 14.06
Windows version: 6.1, Build 7600
Time from start: 0 hours 0 mins 14 secs
Error occurred at: 18/03/2016, 21:40:24
Error description: Error BASE/1004 No exported method: OPENSCHEMA
Args:
[ 1] = U
[ 2] = N 20
Called from: => OPENSCHEMA( 0 )
Called from: C:\fwteam\samples\fivedbu.prg => ADOOPEN( 473 )
Called from: C:\fwteam\samples\fivedbu.prg => (b)BUILDMENU( 132 )
Called from: .\source\classes\MRU.PRG => (b)TMRU_NEW( 68 )
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 467 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1062 )
Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND( 255 )
Called from: => TMDIFRAME:HANDLEEVENT( 0 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3291 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1015 )
Called from: C:\fwteam\samples\fivedbu.prg => MAIN( 57 )
Es una Base de Datos sencilla con 2 tablas
FWH 25.12
Harbour/Hbmk2
Microsoft Visual C++
MySql 8.0
Antigravity