Contoh Membuat Query dari SQL 2003 di VB 6.0

seringkali kita merasa kesulitan untuk membuat laporan-laporan yang diambil dari database sql server 2003, dibawah ini aku punya sedikit yang mungkin bisa membantu query sebagai berikut :

Dim adoindra As ADODB.Recordset

Sub HUBUNG()
Set adoindra = New ADODB.Recordset
If Option1.Value = True Then
SQL = ” Select  RM,NAMA,TANGGAL,NOTA ,UNIT,OBAT,TINDAKAN,HRDOKTER,” _
& ” IMUNISASI,KARCIS,GIZI,TOTAL,PERUSAHAAN,STATUS,TINDAKAN  from indra  ” _
& ” WHERE TANGGAL>='” & Tgl1.Value & “‘ and TANGGAL<='” & Tgl2.Value & “‘ AND ” _
& ” status = ‘0’ and unit = ‘POLIKLINIK GIGI’ ORDER BY NOTA”

Else
SQL = ” Select  RM,NAMA,TANGGAL,NOTA ,UNIT,OBAT,TINDAKAN,HRDOKTER,” _
& ” IMUNISASI,KARCIS,GIZI,TOTAL,STATUS,PERUSAHAAN,STATUS,TINDAKAN from indra  ” _
& ” WHERE TANGGAL>='” & Tgl1.Value & “‘ and TANGGAL<='” & Tgl2.Value & “‘ and ” _
& ” status = ‘1’ and unit = ‘POLIKLINIK GIGI’ ORDER BY NOTA”
End If
adoindra.Open SQL, DbCon, adOpenStatic, adLockReadOnly
End Sub

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s