Multiuser Dengan Visual Basic

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 dan RS

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.