Mau konsultasi DELPHI
mungkin aja di bisa di bantu
Telp 62 813.1401.3305
/ 62 817. 910.8005

..<< More Info >>..
Showing posts with label Query Example Type. Show all posts
Showing posts with label Query Example Type. Show all posts

Sunday, 11 July 2010

Query In Delphi Example Type

========== query example x1
--query1.sql.clear;
--query1.sql.add ('select tanggal, number , codecs, receivefrom from dbtanda');
--query1.sql.add (' where tanggal >= :xQTGL1 ');
--query1.sql.add (' and tanggal <= :xQTGL2 '); --query1.parambyname('xQTGL1').asDate := xTGL1 ; --query1.parambyname('xQTGL2').asDate := xTGL2 ; --query1.prepare; query1.open; --

========== query example x2
xquery1 := ' select tanggal, number , codecs, receivefrom, receiveis, '+ ' receiveno, curren, amount, dayback, receiveby from dbtanda ' ; query1.sql.clear; query1.sql.add ( xquery1 ); query1.sql.add (' where tanggal >= :xQTGL1 ');
query1.sql.add (' and tanggal <= :xQTGL2 '); query1.sql.add (' and number >= :xQnoInvo1 ');
query1.sql.add (' and number <= :xQnoInvo2 '); query1.sql.add (' and codecs = :xQnoCust1 ') ; query1.parambyname('xQnoInvo1').asString := trim(xnoInvo1) ; query1.parambyname('xQnoInvo2').asString := trim(xnoInvo2) ; query1.parambyname('xQNoCust1').asString := trim(xnoCust1) ; query1.parambyname('xQTGL1').asDate := xTGL1 ; query1.parambyname('xQTGL2').asDate := xTGL2 ; query1.prepare; query1.open;


========== query example x3

select CodeCS, curren, sum (amount) as tlAmount from dbtanda
group by CodeCs, Curren
order by CodeCs, Curren

Digg!
Add to Technorati Favorites Join My Community at MyBloglog! Programming Blogs - Blog Catalog Blog Directory online counter
 

Bursa 2000 | Find Better Jobs