Cara Koneksi Database SQL Server ke VB.net
dari kemarin saya sudah memposting beberapa tugas dari dosen,,,hmmmm.kayaknya ini adalah tugas terakhir deh,,,asyeeeeeeeeek.
habis tugas ini,mata kuliah database terdistribusi akan segera selesai,tinggal nunggu tanggal uas.
nah,,,disini saya akan membahas tentang cara mengkoneksikan Database SQL server ke VB.net
oke,,,
selamat membaca ya
Software yang dipakai :
-Sql Server Management Studio Express
-Microsoft Visual Studio 2005
Cara Buat database :
Buka Software Sql Server Management Studio Express :
Pilih Connect
Klik Subtree Database – Klik Kanan – pilih New Database
Pada Kotak dialog New Database:
Isikan Nama Database pada Database Name – OK
Misal Database Name = CobaDB
Selanjutnya pada CobaDB klik subtree lalu pilih tables.
Di tables
– klik kanan
– new table (isikan table, type, dll (Alias tempat bikin table nih))
Beres Dah Bikin Database nya..
Koneksi dengan VB.Net Buka Microsoft Visual Studio 2005
-File
-New Project
-Isikan Nama Project
-OK
Di kiri atas Pilih Server Explorer
Pilih Connect to database
Pilih server name
Pilih select or enter a database name OK
Beres dah konekin database ke sql server
Tinggal coding deh, pake query-query buat input, save, del, update, seperti di bawah ini
1. Untuk General
Public cn As ADODB.Connection
Dim rsTblMhs As ADODB.Recordset
Dim strsql As String
2. Buat Sub Koneksi
Public Sub koneksi()
Set cn = New ADODB.Connection
'cn.Open "FILE NAME=koneksi_TblMhs.udl"
'untuk nampilin tabel di sql tadi,buka koneksi_TblMhs.udl dg notepad trus copy deh kesini
cn.Open
"Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User
ID=sa;Initial Catalog=DatabaseMhs;Data Source=TOSHIBA-PC"
End Sub
Ini
di buat untuk mengkoneksikan vibi dengan SQL, pada cn.Open
"Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User
ID=sa;Initial Catalog=DatabaseMhs;Data Source=TOSHIBA-PC"
ganti
sesuai dengan udl yang telah anda buat, klik kanan notepad koneksi anda,
terus open with notepad, copy tulisan dari provider, terus paste di
coding vibi anda.
3. Pada form Load
Private Sub Form_Load()
TxtNIM.Text = ""
txtNama.Text = ""
TxtAlamat.Text = ""
koneksi
Set rsTblMhs = New ADODB.Recordset
rsTblMhs.CursorLocation = adUseClient
strsql = "select*from TblMhs"
rsTblMhs.Open strsql, cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rsTblMhs
CmdAdd.Enabled = False
CmdUpdate.Enabled = True
'CmdNew.Enabled = True
CmdEdit.Enabled = True
CmdDelete.Enabled = True
TxtNIM.Locked = True
txtNama.Locked = True
TxtAlamat.Locked = True
End Sub
Koneksi: agar setiap kita menjalankan program, maka program akan langsung terkoneksi dengan database.
strsql = "select*from TblMhs", di gunakan untuk menampilkan semua isi dari tabel TblMhs,
Pada saat di load, kita tidak bisa langsung menulis nim, nama, alamat karena di locked (kunci) maka kita harus klik New dulu.
4. coding cmd new
Private Sub CmdNew_Click()
CmdAdd.Enabled = True
CmdNew.Enabled = False
TxtNIM.Locked = False
txtNama.Locked = False
TxtAlamat.Locked = False
End Sub
sekarang baru bisa tulis nim, nama, alamat dan tombol new di enable.
5. Coding Cmd Add
Private Sub CmdAdd_Click()
If TxtNIM.Text = "" Then
MsgBox "NIM belum diisi", vbInformation, "PESAN"
TxtNIM.SetFocus
ElseIf txtNama.Text = "" Then
MsgBox "NAMA belum diisi", vbInformation, "PESAN"
txtNama.SetFocus
ElseIf TxtAlamat.Text = "" Then
MsgBox "ALAMAT belum diisi", vbInformation, "PESAN"
TxtAlamat.SetFocus
Else
rsTblMhs.AddNew
rsTblMhs("NIM") = TxtNIM.Text
rsTblMhs("NAMA") = txtNama.Text
rsTblMhs("ALAMAT") = TxtAlamat.Text
rsTblMhs.Update
End If
Set DataGrid1.DataSource = rsTblMhs
TxtNIM.Text = ""
txtNama.Text = ""
TxtAlamat.Text = ""
CmdAdd.Enabled = False
CmdUpdate.Enabled = True
CmdNew.Enabled = True
CmdDelete.Enabled = True
End Sub
Ini di gunakan untuk menampilkan data yang kita input tampil di datagrid
6. coding cmd Delet
Private Sub CmdDelete_Click()
TxtNIM.Locked = False
txtNama.Locked = False
TxtAlamat.Locked = False
TxtNIM.Text = rsTblMhs("NIM")
txtNama.Text = rsTblMhs("NAMA")
TxtAlamat.Text = rsTblMhs("ALAMAT")
If MsgBox("apakah yakin ingin dihapus?", vbYesNo, "KONFIRMASI") = vbYes Then
Set rsTblMhs = cn.Execute("Delete from TblMhs where NIM='" & TxtNIM.Text & " ' ")
MsgBox "Data telah dihapus", vbInformation, "PESAN"
End If
'untuk me-refresh datagrid setelah delete data
If cn.State = adStateOpen Then
setrsTblMhs = New ADODB.Recordset
rsTblMhs.CursorLocation = adUseClient
strsql = "select * from TblMhs"
rsTblMhs.CursorLocation = adUseClient
rsTblMhs.Open strsql, cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rsTblMhs
End If
End Sub
Untuk mendelete data yang sudah kita inputkan.
7. Coding Refresh
Private Sub Refresh_Click()
Set DataGrid1.DataSource = Nothing
DataGrid1.Refresh
End Sub
di gunakan untuk mengosongkan isi datagrid, tapi data yang sudah di add tetap berada di database.
hmmm,,,,mungkin
hanya ini yang bisa saya jelaskan , kalau ada kesalahan dalam penulisan
atau penjelasan dimateri ini,saya mohon maaf karena saya disini masih
dalam proses belajar,,,belum pada tahap mengajar.
hehehehe
semoga bermanfaat each !!!