KoneksiDatabase
Code
· Pengetikan codenya disebuah modul
· Code untuk membuat pengganti Data/ADODC
Public Nmobjek As New ADODB.Connection
contoh:
Public conn As New ADODB.Connection
· Code pengganti Recordset
Public nm As New ADODB.Recordset
Contoh:
Public rs As New ADODB.Recordset
· Untuk pengetikan perintah ini dimodul dan dibuatkan sebuah
procedure / private yang bersifat public dengan perintah:
Public sub Nama private
Contoh:
Public sub Hubungan()
Koneksi Database
Memanggil Program di Modul
· Dengan mengketik nama public yang kita buat
Contoh
Hubungan
· Dengan Persyarat diketik di Form_Load() atau Form_Activate()
Atau tergantung kebutuhan
Koneksi Database
Contoh Penggunaan Conn
Private Sub Form_Load()
Hubungan
sql= "Select * from Jurusan"
Set rs = conn.Execute (sql, , adCmdText)
If Not rs.EOF Then
rs.MoveFirst
Text1 = rs!KdJur
Text2 = rs!nmJur
End If
End Sub
SQL
Select
· Berfungsi Menampilkan data
Contoh:
Select Kdjur, NmJurfrom jurusan where Kdjur=‘26’
Penjelasan:
Menampilkan data dimana data yang akan ditampilkan
mengambil data yang tersimpan di field kdjur dan nmjur dimana field disini diibaratkan sebagai kolom
(from) dimana datanya mengambil dari table Jurusan
(Where) Dalam menampilkan data berdasarkan atau dengan persyaratan menampilkan data bedasarkan penyamaan antara data yang tersimpan difield dikdjur sama dengan‘26’
SQL
Select
Pengunaan VB
Contoh:
Sintak Query umum;
Select Kdjur, NmJurfrom jurusanwhere Kdjur=‘26’
Sintakdi VB;
SQL= “Select Kdjur, NmJur from jurusan where Kdjur=‘ ” & Trim(Text2) & “ ’ ”
SQL
Insert
PerintahBaku;
Insert into Tabel(field1, field2) values (data1,data2)
Penjelasan;
Perintah Insert Into berfungsi untuk memasukan atau menambah record kesebuah table.
Tabel adalah menunjukan table yang akan ditambah recordnya.
Field1 dan field2 adalah menunjukan urutan field yang akan kita isi data-datanya.
Data1, data2 adalah data yang ingin kita masukan ke field1 field2.
Urutan data yang kita masukan harus disesuaikan dengan field yang bersangkutan.
Contoh:
Insert into Jurusan(Kdjur, Nmjur) values (‘26’,’Manajemen Informatika’)
Penjelasan;
Perintah Insert Into berfungsi untuk memasukan atau menambah record ke tabel Jurusan
Jurusan adalah menunjukan table yang akan ditambah recordnya
Kdjur dan Nmjur adalah menunjukan urutan field yang akan kita isi data-datanya.
26, MI adalah data yang ingin kita masukan ke Kdjur, Nmjur.
Insert
Pemakaian Di VB
IS=“Insert into Jurusan(Kdjur, Nmjur) values (‘ ” & Trim(Text1) & “ ’ ,‘ ” & Trim(Text2) & “ ’ )“
Penjelasan;
IS adalah variabel yang bertipe data String
Text1 dan text2 adalah menunjukan urutan data yang akan kita isi kefield-field yang bersangkutan lewat text1 dan text2.
SQL
Update
· Berfungsi mengubah/ menganti/mengupdate data ditabel
Contoh:
Update Tabel set field1=data1, field2=data2 where Kdjur=‘26’
Penjelasan;
Perintah Update berfungsi untukmengubah/mengganti/ mengupdate record disebuah tablel.
Tabel adalah menunjukan table yang akan diubah/update recordnya.
Field1 dan field2 adalah menunjukan urutan field yang akan kita ubah data-datanya.
Data1, data2 adalah data yang baru untuk ubah data field1 dan field2
Kdjur=‘26’ adalah menunjukan record mana yang akan kita ubah dimana record tersebut isi data field kdjur=26
Contoh:
Update Jurusan set Kdjur=‘26’, Nmjur=‘MI’ Where Kdjur=‘26’
Penjelasan;
Jurusan adalah menunjukan tabel yang akan di ubah/update recordnya.
Kdjur dan Nmjur adalah menunjukan urutan field yang akan kita ubah data-datanya.
26, MI adalah data yang baru untuk ubah data kdjur dan Nmjur.
Kdjur=‘26’ adalah menunjukan record mana yang akan kita ubah dimana record tersebut isi data field kdjur=26
Update
Pemakaian Di VB
IS= “Update Jurusan set
Kdjur=‘ ” & Trim(Text1) & “ ’,
Nmjur=‘ ” & Trim(Text2) & “ ’)
Where Kdjur=‘ ” & Trim(Text1) & “ ’
Penjelasan;
IS adalah variable yang bertipe data String
Text1 dan text2 adalah menunjukan urutan data yang mengupdate/ubah isi difield kdjur dan field nmjur.
Catatan:
Setiap anda ingin mengubah data jika tidak memakai where atau sebuah kondisi maka dalam satu table datanya akan berubah semua.
SQL
Delete
· Berfungsi Menghapus data ditabel
Contoh:
Delete from Tabel where Kdjur=‘26’
Penjelasan;
Perintah Delete berfungsi untuk menghapus record disebuah tabel
Tabel adalah menunjukan table yang dihapus recordnya
Kdjur=‘26’ adalahmenunjukanrecord manayang akankita
hapusdimanarecord tersebutisidata field kdjur=26
Delete
Contoh:
Delete from Jurusan Where Kdjur=‘26’
Penjelasan;
Jurusan adalah menunjukan table yang dihapus recordnya
Kdjur=‘26’ adalah menunjukan record mana yang akan kita hapus dimana record tersebut isi data field kdjur=26
Delete
Pemakaian Di VB
IS=“Delete from Jurusan
Where Kdjur=‘ ” & Trim(Text1) & “ ’
Penjelasan;
IS adalah variabel yang bertipe data String
Catatan:
Setiap anda ingin menghapus data jika tidak memakai where
Atau sebuah kondisi maka dalam satu table datanya akan
Terhapus semua.
Klik disini untuk melanjutkan »»
