Powered by Blogger.

PROGRAM PERINTAH SQL BACA VARIABLE AND AUTO SEARCH




Untuk membuat perintah SQL dapat membaca variable :

Misall nama variabelnya “Panjang”
Print "select * from inspeksi where right" + "(No_Sampel," + Panjang + ")" + "='" + Trim(Jenis + "/" & Bln & "/" & Thn) & "'"



Auto search program:

Private Sub TxtEditSampel_Change()
xx = Len(Trim(TxtEditSampel.Text))
If xx = 0 Then
    xx = 1
    AdoInspeksi.RecordSource = "select * from inspeksi"
    AdoInspeksi.Refresh
Else
    bb = Mid$(TxtEditSampel.Text, 1, xx)
    AdoInspeksi.RecordSource = "select * from inspeksi where mid$(trim(no_sampel),1," & xx & ")='" + Trim(bb) + "'"
    AdoInspeksi.Refresh
End If
End Sub



Anda baru saja membaca artikel yang berkategori Latihan vb 6 dengan judul PROGRAM PERINTAH SQL BACA VARIABLE AND AUTO SEARCH. Anda bisa bookmark halaman ini dengan URL http://belajar-dgn-vb.blogspot.com/2012/07/program-perintah-sql-baca-variable-and.html. Terima kasih!
Ditulis oleh: Unknown - Saturday 7 July 2012

Belum ada komentar untuk "PROGRAM PERINTAH SQL BACA VARIABLE AND AUTO SEARCH"

Post a Comment