mssql server 2012 express

[jairpinho]

jairpinho

This an example I hope help you

Gracias Jorge, funcionó perfectamente sin odbc conexión nativa sigue el ejemplo para todos. espero recibir más ejemplos para otros tipos de conexión rdd o odbc para dejar como exeomplo para el grupo

english
Thanks Jorge, worked perfectly without odbc native connection follows example for all. I hope to receive more examples for other types of connection rdd or odbc to leave as exeomplo for the group

[mol]

Thanks guys

[Tiger]

Hi jairpinho,

Thanks for your sample "AD0_NATIVE.zip ", it helps me to connect to the MSSQL now. And I just wonder how to export the query result to excel file. Can anyone guide me to do it? I try to search the form but I can't get it.

Tiger

[AUGE_OHR]

hi,

And I just wonder how to export the query result to excel file. Can anyone guide me to do it? I

there is a Excel Demo in c:\hmg.3.4.4\SAMPLES\Controls\OLE\demo.prg

create a empty worksheet and pass hole Array like this

Code: Select all

PROCEDURE Excel(aData)
LOCAL oExcel, oHoja

   oExcel := CreateObject( "Excel.Application" )
   oExcel:WorkBooks:Add()
   oHoja := oExcel:ActiveSheet()
   // fill Sheet with Array
   oHoja:value := aData

[Tiger]

hi,

And I just wonder how to export the query result to excel file. Can anyone guide me to do it? I

there is a Excel Demo in c:\hmg.3.4.4\SAMPLES\Controls\OLE\demo.prg

create a empty worksheet and pass hole Array like this

Code: Select all

PROCEDURE Excel(aData)
LOCAL oExcel, oHoja

   oExcel := CreateObject( "Excel.Application" )
   oExcel:WorkBooks:Add()
   oHoja := oExcel:ActiveSheet()
   // fill Sheet with Array
   oHoja:value := aData

Thank for the hint, I will try this way.

[mol]

Hi!
I want to reftresh this topic.
I'm trying to rebuild my application, but, it doesn't want to connect to MSSQL server
My connection string:
cConStr := "Driver={SQL Server};"+;
"Server=" + cSQLSerwer + ";"+;
"Database="+ cSQLBaza + ";"+;
"Trusted_Connection=yes" + ";"+;
"Integrated Security=SSPI;" +;
"Uid=" + cSQLUser+ ";"+;
"Pwd="+ cSQLPassword +";"
lOK := hb_RDDINFO( RDDI_CONNECT, { "ODBC", cConStr })

lOK should be 0 if not connected and <> 0 if connected.
But, I'm getting an array as a result, containing exactly what I pass to RDDINFO - { "ODBC", cConStr }

Do you have any idea what can be wrong?
Any other ways to connect to mssql server?

[jparada]

Hi,

try ADO, small example:

Code: Select all

IF ( oConnection := win_OleCreateObject( "ADODB.Connection" ) ) == NIL
    ? "No es posible crear objeto conexión", win_OleErrorText()
    RETURN NIL
  ENDIF

  BEGIN SEQUENCE WITH {|oError| BREAK( oError ) }    
    oConnection:Open("Provider=SQLNCLI11;Server=SERVERNAME\INSTANCENAME;Database=DBNAME;Uid=USER;Pwd=PASS;" )		
  RECOVER USING oError
    ? "Error al intentar conectar a la base de datos " +  E"\n" + hb_Utf8ToStr(oError:Description)
    RETURN NIL
  END SEQUENCE

  oRs := win_OleCreateObject( "ADODB.Recordset" )
  cQry1 := "SELECT TOP 5 ccodigoagente AS Agente, cnombreagente AS Nombre FROM admAgentes"

  BEGIN SEQUENCE WITH {|oError| BREAK( oError ) }    
    oRs:Open(cQry1, oConnection)
  RECOVER USING oError
    ? "Error al realizar la consulta " +  E"\n" + hb_Utf8ToStr(oError:Description)
  END SEQUENCE
  
  oRs:MoveFirst()
  Do While !oRs:Eof()
    AADD( aData , { oRs:Fields( "Nombre" ):Value, oRs:Fields( "Agente" ):Value  } )    
    oRs:MoveNext()
  ENDDO

  oRs:Close()
  oConnection:Close()

Regards,
Javier

[mol]

Thank you! I'll try this. How about speed?

[jparada]

Hi,

Compared against what?, anyway, I have no comparison parameter, since I personally have not used any other connection method, I only use ADO.

Regards,
Javier

[mol]

As I understand well, in ADO, when I get data from serwer, I must put it into table or .dbf file.
Using SQLMIX, I'm getting data into temporary table. There is a minimal change to old code to use this way of using sql server.
Am I wrong?