PROGRAM PERINTAH SQL BACA VARIABLE AND AUTO SEARCH

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

JUGA Terdapat Program mengembalikan fungsi variable serta  program koneksi crystal report

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