jump to navigation

Struktur SQL dalam VB Juni 4, 2007

Posted by desitie in Visual Basic.
trackback

SQL = Struktur Query Language (Sebuah bahasa yang dirancang khusus untuk dapat berkomunikasi dengan database). Buatlah Tampilan Seperti dibawah ini :

vs1.jpg

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…

Komentar»

1. anggara - Juni 5, 2007

*celingak-celinguk* PERTAMAX ! ..he…he…he… keep blogging

2. Suluh - Juni 5, 2007

Belajar lagi nich… Bingung saya…. :(

3. Fuad Muftie - Juni 5, 2007

Wak, tulalit, judulnya silaturahim yuk!! kirain buat ajang silaturahim apa’an, nggak taunya silaturahim buat programer ya.

Kabur ach….

salam
Pengusaha.

4. desitie - Juni 5, 2007

:-) Maaf, jadi ceritanya saya mo buat silaturahim sama temen-temen saya. jangan pada kabur dunk…kamu juga bisa kasih masukan, makasih ya dah mau mampir….

5. maswa2n - Juni 22, 2007

Kirain silaturahmi apaan..eh ternyata..bener2 silahturahmi..hahhh..GubRakkK..Tapi bermanfaat, sangat membantu.Ok banget dah..Thanks yoooo

6. petantang_petenteng - Agustus 24, 2007

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 :)

7. petantang_petenteng - Agustus 24, 2007

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
:)

8. uwiuw - September 9, 2007

wah ada programmer vb jg…heheheh ditunggu lagi nih tulisan sejenih nih :-D