VB.NET MS Access bağlantısı ?

[blazedanger35]

Merhabalar , sql ile bağlanan bu projeyi ms access te hazırlanmış veritabanıyla çalışacak şekilde nasıl değiştirebilirim ?
Bu kodlar , PDF dosyasından alınmadır.
Module bileşeninin adını bilmiyorum.

Not: Projeye modül eklenmiş ve içinde şu kodlar yazıyor.

Public StrConnectionString As String = "Data Source=localhost;Initial
Catalog=Filmler;Integrated Security=True"

Ana Formun tüm kodları.

Ana Formun Tam Kod DökümüListe: Ana Formun Kodu
Imports System
Imports System.Data
Imports System.String
Imports System.Collections
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class FrmAna
Inherits System.Windows.Forms.Form
Public Shared ObjArama As FrmArama
Public Shared ObjKayit As FrmKayit
Private Sub CmdGonder_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CmdGonder.Click
If TxtMusteriNo.Text.Trim = "" Then
MessageBox.Show("Müşteri numaranızı giriniz.")
Else
ObjArama = New FrmArama()
If (IsNumeric(TxtMusteriNo.Text)) Then
If (MusteriNoGecerlimi(TxtMusteriNo.Text)) Then
ObjArama.KayitNoAyarla(TxtMusteriNo.Text)
ObjArama.Show()
Else
MessageBox.Show("Geçersiz Müşteri numarası")
End If
Else
MessageBox.Show("Geçersiz Müşteri numarası")
End If
End If
End Sub
Private Function MusteriNoGecerlimi(ByVal MusteriNo As String) As Boolean
Dim StrSorgu As String
Dim StrKayitSayisi As String
Dim SqlConnection1 As New SqlConnection(StrConnectionString)
StrSorgu = "SELECT COUNT(MusteriNo) FROM Musteri WHERE MusteriNo ='" & MusteriNo
& "'"
SqlConnection1.Open()
Dim SelectCmd As New SqlCommand(StrSorgu, SqlConnection1)
StrKayitSayisi = SelectCmd.ExecuteScalar()
SqlConnection1.Close()
SqlConnection1.Dispose()
SelectCmd.Dispose()
If (CInt(StrKayitSayisi) > 0) Then
MusteriNoGecerlimi = True
Else
MusteriNoGecerlimi = False
End If
End Function
Private Sub CmdKayit_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CmdKayit.Click
ObjKayit = New FrmKayit()
ObjKayit.Show()
End Sub
Private Sub CmdAra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles CmdAra.Click
ObjArama = New FrmArama()
ObjArama.Show()
End Sub
Private Sub CmdCikis_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles CmdCikis.Click
Me.Close()
End Sub
End Class

 

[Vatansever]

Çok basit aradaki fark sadece connection string ve komutların başındaki sql kısmını oledb ile değiştir ama önce başa Imports System.Data.OleDb 'u eklesen iyi olur bu işini kolaylaştırır ayrıca sql ile ilgili imports 'ların önüne tırnak koyup iptal et buda değiştirmen gereken kodları bulmanı kolaylaştırır mesela
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Yukarıdakilerin önüne tırnak koyup iptal et


MDB Access Aşağıdakiler gibi

STRİNG
Public StrConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\Database.mdb;Persist Security Info=False"

Dim cn As OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Dim da As OleDbDataAdapter

SQL Aşağıdakiler gibi
Dim cn As SqlConnection
Dim cmd As SqlCommand
Dim da As New SqlDataAdapter