Cara Membuat Koneksi Ke Database di Vb 6

-
Buatlah Module terlebih dahulu

Fungsi Module sendiri adalah sebagi berikut :
Untuk menyimpan procedure-prosedure atau fungsi-fungsi atau variable-variable yang digunakan secara global oleh alplikasi yang akan kita buat, sehingga kita tidak perlu membuat fungsi-fungsi atau procedur-prosedure atau variable-variable tersebut secara berulang-ulang, dan akan lebih memudahkan kita dalam penggunaannya.
Dengan penjelasan diatas maka penulisan coding akan menjadi ringkas, dan kita bisa memanggilnya di Module tersebut




Langkah-langkah membuat Module :
1. Buka Project VB anda
2. Klik Project
3. Add Module

Silahkan Isi Coding dibawah ini kedalam Module1
modul koneksi database penjualan

Public dbConn As New Connection
Public strConn As String

Sub ActConn()
On Error Resume Next
strConn = "Driver={SQL Server};Server=USER-PC;Database=penjualan,uid=sa,pwd=;"  '(Masukkan nama server , 'database, user, password (kalau gk ada user dan password maka hapus saja sa dan pwdnya))

dbConn.CursorLocation = adUseClient
If dbConn.State = adStateClosed Then
dbConn.Open strConn
If dbConn.State = adStateClosed Then
MsgBox "Koneksi Gagal ! ", vbCritical + vbOKOnly, "Kesalahan "
End If
End If


End Sub

Comments

Post a Comment

Popular posts from this blog

Cara Mengatasi Galat: Index hilang pada kolom di phpMyAdmin

-
Image
SQL FOREIGN KEY Constraint Kalau kamu menemui kasus seperti itu, biasanya indeks memang gak  ada jadi buat indeks dulu 1. Pada tabel yang akan dijadikan foreign key, klik indeks data yang ingin dihubungkan menjadi foreign key. 2. Buka data tabel yang akan dijadikan primary. Klik struktur>pilih relation view. Disana akan ada foreign key constraint. Pilih data tabel pertama sebagai primary key,lalu pilih database, pilih kolom tabel kedua sebagai foreign key lalu data tabel. Jangan lupa pilih on delete cascade on delete cascade Semoga berhasil. Galat : Index hilang pada kolom
Read more

Program C++ Menghitung Diskon Pembelian oleh Pelanggan

-
Image
Contoh Program C++ untuk Menghitung Diskon Pembelian oleh Pelanggan , dimana pelanggan yang melakukan pembelian sama dengan atau diatas 50000 akan mendapatkan diskon 10% dari total belinya. Program menggunakan perulangan while dan fungsi if - else . program perkasiran, swalayan, supermarket sederhana . kasir. pembeli. beli. #include <conio.h> #include <iostream.h> main(){ char nama_brg [20]; int jmlh_beli=0,tot_beli=0, x, y; long int harga=0,hrg_brg=0,total=0,bayar=0,diskon; cout<<" ==== Program Perkasiran untuk Menghitung Diskon Sederhana ==== \n\n"; cout<<"Masukkan jumlah macam barang yang sudah dibeli:";cin>>y; x=1;
Read more