koneksi database sql server dan vibi

Sebenere banyak cara buat koneksiin database sql server dengan visual basic. dari pake data environment sampe komponen adodc. klo gw sih lebih milih nulis di script aja. biar klo program di pindah kompi, kaga nyeting2 lagi..
langkah pertama:
-bikin dulu module di projectnya
ketikan di situ:

Public dbCon As New Connection
Public strCon As String

Sub ActCon()
On Error GoTo elol
strCon = "Driver={SQL Server}; Server=(local); Database=namadatabase; uid=sa; pwd=;"
Initial Catalog=perpus;Data Source=(local)"
dbCon.CursorLocation = adUseClient
If dbCon.state = adStateClosed Then
dbCon.Open strCon
If dbCon.state = adStateClosed Then
MsgBox "gagal konek"
End If
End If

elol:
strCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=namadatabase;Data Source=(local)"
dbCon.CursorLocation = adUseClient
If dbCon.state = adStateClosed Then
dbCon.Open strCon
If dbCon.state = adStateClosed Then
MsgBox "gagal konek"
End If
End If
End Sub

udah belom??klo belom mending copas aja..gw kaga pelit ilmu koq..hehhe..

langkah kedua:
bikin form deh..teserah mo form apa aja boleh..yang penting paling atas form di isi deklarasi dari recordsetnya

Dim rs As New ADODB.Recordset

trus umpamanya mo bikin input data barang.di dalam tombol simpan.
tulisannya begini:

Set rs = New ADODB.Recordset
rs.Open "insert into barang(KodeBuku,NamaBuku,Kelas,Jumlah,HargaBeli,HargaJual,Stok) values ('" & txtkodebuku & "','" & txtnamabuku & "','" & txtkelas & "','" & txtjumlah & "','" & txtbeli & "','" & txtjual & "','" & txtstok & "')",dbcon,adOpenDynamic,adLockOptimistic

trus kasih tu massege box klo data berhasil disimpan.

msgbox "sukses deh input data"

habis itu...jangan lupa pas form loadnya dipanggil tuh sub yang ada dimodule..ActCon

selanjutnya tergantung pengembangan panjenengan-panjenengan semua..hehe..

Posted in: Visual Basic