Skip to main content

Membuat KONEKSI Database VB.Net dan SQL Server 2000 - 02

Image
By


Agan-agan buatlah sebuah Module pada aplikasi agan, dan tuliskan kodingnya seperti diatas untuk Koneksi databasenya :

Imports System.Data
Imports System.Data.Sql

Module MODUL_KONEKSI

  Public DATABASE As New OleDb.OleDbConnection
  Public TAMPIL As New OleDb.OleDbCommand
  Public TAMPILKAN As OleDb.OleDbDataReader
  Public GRID As New OleDb.OleDbDataAdapter
  Public DS As New DataSet
  Public TABEL As String
  Public RECORD As New BindingSource
  Public DMLSQL As New OleDb.OleDbCommand

  Public Sub KONEKSI()
  Try
  DATABASE.Close()
  DATABASE.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" & _
  "Persist Security Info=False;Initial Catalog=ABSENSI;Data Source=."
  DATABASE.Open()
  Catch ex As Exception
  MsgBox(ex.ToString())
  End Try
  End Sub

End Module

Comments

  1. Unknown13 March 2011 at 20:22

    Asslkm Wr Wb.........
    Maaf pak saya mau tanya,
    saya mau tau cara koneksi VB.Net dengan Mysql bagaimana .... ?
    Teri maskih sebelumnya...

    ReplyDelete

Post a Comment

Popular posts from this blog

CheckBox dalam DataGridView VB.Net

By
Pada saat membuat aplikasi (VB.Net) untuk materi skripsi, terbesit bagaimana cara baru untuk memberikan hak akses user secara dinamis pada sistem. setelah dicoba dengan tanya-tanya. akhirnya bisa mendapatkan cara itu... wah sesuatu banget dah.... inti dari posting ini hanya pada barisan kode berikut : Private Sub BtnSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSIMPAN.Click         Dim Y As String = Mid(CmbUSER.Text, 1, 7)         Dim iROW As Integer         Dim AKSES As String         For iROW = 0 To DGVSample.Rows.Count - 1             'AksesBox = Nama CheckBox yang ada di DatagridView             If DGVSample.Rows(iROW).Cells("AksesBox").Value Then                 AKSES = "1"             Else                 AKSES = "0"             End If             'Class Proses DML (Simpan Data)             xSIMPAN.SIMPAN_AKSES(Y, DGVSample.Rows(iROW).Cells(1).Value, AKSES)         N
1 comment
Read more

LDAP In VB.Net

By
hey there friends,  here is this i would like to share another simple code in developing an application in VB.Net by now i would like to share how the way to use a LDAP (Lightweight Directory Access Protocol). at the time i need to develop a system which needs to use login user using domain user (ex: peoplename@company.co.id) no longer using user level in database. it is so confused to me to make it real at the time, because i never make it before. but this is the way how i make it happened. just make a simple form as below : next level : add another reference in your visual studio project (System.DirectoryService.dll) next : make a new class Imports System Imports System.Text Imports System.Collections Imports System.Security.Principal Imports System.DirectoryServices Public Class LDAPControlClass     Private NamaDomain As String = "company.co.id"     Private MemberOf As New List(Of String)     Public Function LoginLDAP(ByVal Username
Post a Comment
Read more