Sql Server 2005 with HMG: print
Posted: Mon Jan 26, 2009 12:22 pm
How can I print a table in SQL Server 2005 with HMG? Can you print directly as if it were a dbf?
Thank you.
Thank you.
Hi Cartago,
You must create a recordset of the table to list and go with a while loop.
for example: use a table clients with ado.
Local oConexion, otable
oConexion = TOleauto():New('ADODB.Connection')
oConexion:ConnectionString ='Provider=Microsoft.Jet.OLEDB.4.0;'+;
'Data Source=MyDatabase.mdb;'+;
'User Id=Admin;'+;
"Password=;"
oConexion:Open()
oTable := oTable:CursorLocation = adUseClient
oTable:Open( "Select * from clients", oConexion, adOpenDynamic, adLockOptimistic )
if oTable:State = adStateClose
msgstop('Msg error')
Endif
// Init printer commands
// List data
Do While !oTable:eof()
@ row, col say oTable:Fields('Name'):Value to print
@ row, col say oTable:Fields('Last'):Value to print
oTable:MoveNext()
Enddo
oTable:close()
oConexion:Close()
It's all.
Regards,
Luis Vàsquez.