Skip to main content

Koneksi VB .Net Dengan Database Microsoft Accses

Koneksi VB .Net Dengan Database Microsoft Accses
Simpan Database Accses anda ke Folder Bin/Debug/NAMADATABASE dalam Poject VB .Net
Imports System.Data.OleDb
Module Module_koneksi
Dim connection As New OleDbConnection("provider=Microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\NAMADATABASE.mdb")
Private Sub connection_open()
Try
If connection.State <> ConnectionState.Closed Then connection.Close()
connection.Open()
Catch ex As Exception
End Try
End Sub
Private Sub connection_close()
Try
If connection.State <> ConnectionState.Open Then connection.Open()
connection.Close()
Catch ex As Exception
End Try
End Sub
End Module

Comments

Post a Comment

Popular posts from this blog

Koneksi VB .Net Menggunakan Menggunakan ODBC

Imports System.Data.ODbC Module Module_koneksi Dim connection As New OdbcConnection( "DSN= NAMADSN ;" ) Private Sub connection_open() Try If connection.State <> ConnectionState.Closed Then connection.Close() connection.Open() Catch ex As Exception End Try End Sub Private Sub connection_close() Try If connection.State <> ConnectionState.Open Then connection.Open() connection.Close() Catch ex As Exception End Try End Sub End Module
Post a Comment
Read more

cara membuat hapus data di vb.net 2008

public function hapus data () as integer '--------------------------------------------- 'class untuk menghapus data '--------------------------------------------- dim sql as string dim xcmd as sqlcomand dim x sql ="delete from siswa where nis=@nis" xcmd = new sqlcommand (sql ,con) xcmd.paramater.addwithvalue("nis", Fnis) x = xcmd.executenonquery xcmd.dispose () return x end function
Post a Comment
Read more

membuat perintah ubah di vb.net

public function ubahdata () as integer      dim sql as string      dim xcmd as sqlcomand      dim x as integer      sql ="update siswa set nm_siswa=@nm_siswa,Jenkel=@jenkel,Alamat=@alamat where      nis=@nis"      xcmd = new slqcomand (sql, con)      with parameter            .addwithvalue("nm_siswa", Fnm_siswa)            .addwithvalue("jenkel",Fjenkel)            .addwithvalue ("nis",Fnis)      end with       x = xcmd.excutenonquery      xcmd.dispose ()      return x end function jangan lupa di class ini yang paling atas harus ditulis import system.data.sqlclient karena jika tidak di tulis maka sqlcommand tidak kebaca maka error. selama...
Post a Comment
Read more