Struktur SQL dalam VB
Ditulis oleh desitie di/pada 4 Juni 2007
SQL = Struktur Query Language (Sebuah bahasa yang dirancang khusus untuk dapat berkomunikasi dengan database). Buatlah Tampilan Seperti dibawah ini :
Untuk Koneksi diproperties :
Data1 = databasename
DBGrid1 = data1
Listing Program :
Private Sub CmdProses_Click()
Dim x As String
On Error GoTo Salah
Data1.RecordSource = Text1
Data1.Refresh
If Data1.Recordset.EOF Then
x = MsgBox(”Data Tidak Ketemu”, 0, “Informasi”)
Data1.Refresh
Text1.SetFocus
End If
On Error GoTo 0
Exit Sub
Salah:
x = MsgBox(”Sintak SQL Error”, 0, “Info Dari Admin”)
Text1.Text = “”
Text1.SetFocus
End Sub
Private Sub CmdUlang_Click()
Text1.Text = “”
Text1.SetFocus
End Sub
Private Sub Form_Activate()
Text1.Text = “”
Text1.SetFocus
CmdProses.Default = True
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub Timer1_Timer()
Me.BackColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
End Sub
Catatan :
cmdproses.default=true —-> maksudnya adalah setelah menuliskan perintah SQL kemudian kita enter pada text1 maka proses cmdproses pun akan dijalankan. Coba kamu praktekkan listing berikut kedalam text1 :
1. select * from barang in ‘c:\labsore\pembelian.mdb’ —> alamat penyimpanan
2. select * from barang
3. select kobar from barang
4. select kobar,nabar form barang
5. select * from supplier order by nasup
6. select kosup from supplier where kosup=”SP001″Selamat Memodifikasi…
anggara berkata
*celingak-celinguk* PERTAMAX ! ..he…he…he… keep blogging
Suluh berkata
Belajar lagi nich… Bingung saya….
Fuad Muftie berkata
Wak, tulalit, judulnya silaturahim yuk!! kirain buat ajang silaturahim apa’an, nggak taunya silaturahim buat programer ya.
Kabur ach….
salam
Pengusaha.
desitie berkata
maswa2n berkata
Kirain silaturahmi apaan..eh ternyata..bener2 silahturahmi..hahhh..GubRakkK..Tapi bermanfaat, sangat membantu.Ok banget dah..Thanks yoooo
petantang_petenteng berkata
siang bu..
saya mo tny tentang perintah “counter” di vb dunx..
definisi n penggunaan nya serta bentuk format penulisannya.
terima kasih sblum nya y bu..
di tunggu jawaban nya
petantang_petenteng berkata
siang bu..
saya mo tny tentang perintah “counter” di vb dunx..
definisi n penggunaan nya serta bentuk format penulisannya.
terima kasih sblum nya y bu..
di tunggu jawaban nya
uwiuw berkata
wah ada programmer vb jg…heheheh ditunggu lagi nih tulisan sejenih nih
aris berkata
Mbaaaaak,,,
aq mau tny ni.. klo scrib/code buat ngeformat
angka yg ada pd text box gmn ya??
misal : 1350000 biar jd 1.350.000.00
5000/15 =333.33333333333333333
pengen aq yg di ats jd 333.33 ato muncul 2 anka di belakang koma
…………….mksh
Lele Penyet berkata
Ternyata bnyak jg mau bls surat dr Mbak , judulnya lumayan bagus kok, klo ada yg ngejek biarin aj,
bnyk jg kok manfaatnya
Thank……………………bee for
desitie berkata
makasih yah..atas semangatnya…iya namanya juga belajar, klo salah atau kurang memuaskan itu wajar…
desitie berkata
Thanks…juga yahhh