จะถามเรื่อง VB 2008 ติดต่อกับฐานข้อมูล Access เราต้องเขียนยังไงบ้าง ครับ ขอเริ่มแรกเลยนะครับ

Public Class Form1

Dim cmd As OleDbCommand = New OleDbCommand

Dim strConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/db1.mdb"

Dim Conn As  new OleDbConnection(strConnStrin)

Dim sql as string

เวลาใช้ก็

conn.connect()

sql = ("insert into person(name,lastname,tel) values('{0}','{1}','{2}')", TextBox1.Text, TextBox2.Text, TextBox3.Text)

cmd.Connection = Conn

cmd.CommandText = sql

cmd.ExecuteNonQuery()

Conn.Close()

Imports System.Data.OleDb
Public Class Form1
    Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Admin\Documents\Visual Studio 2010\Projects\ProjectWORK\ProjectWORK\bin\Debug\nuasocool.accdb")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn.Open()
        Dim sql As String
        Dim Auto_Num As Integer
        Dim Auto_Txt As String
        sql = "SELECT * FROM nuasocool ORDER BY id ASC"
        Dim Cmd As New OleDbCommand(sql, conn)
        Dim Rd As OleDbDataReader
        Rd = Cmd.ExecuteReader
        While Rd.Read
            Auto_Num = Rd(0)
        End While
        Auto_Num = Auto_Num + 1
        If Auto_Num < 100 Then
            Auto_Txt = "0000" & Auto_Num
        ElseIf Auto_Num < 1000 Then
            Auto_Txt = "000" & Auto_Num
        ElseIf Auto_Num < 10000 Then
            Auto_Txt = "00" & Auto_Num
        ElseIf Auto_Num < 100000 Then
            Auto_Txt = "0" & Auto_Num
        Else
            Auto_Txt = Auto_Num
        End If
        TextBox1.Text = Auto_Txt
        conn.Close()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        MessageBox.Show("คุณต้องการปิดโปรแกรม", "information", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        conn.Open()
        MessageBox.Show("เพิ่มข้อมูลเรียบร้อย", "information", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Dim Cmd As New OleDbCommand("SELECT * FROM nuasocool WHERE id=" &
        TextBox1.Text & "", conn)
        Dim Rd As OleDbDataReader
        Rd = Cmd.ExecuteReader()
        If Rd.Read Then 'ถ้ามีข้อมูลแล้ว
            MessageBox.Show("มีมูลข้อนี้อยู่แล้ว", "information", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else 'ถ้ายังไม่มีข้ออยู่
            Dim sql As String
            sql = "INSERT INTO nuasocool (id,Fname,Lname,sex,job,address,tel,email) VALUES"
            sql = sql & "(" & TextBox1.Text & ",'" & TextBox2.Text & "'"
            sql = sql & ",'" & TextBox3.Text & "','" & ComboBox1.Text & "'"
            sql = sql & ",'" & ComboBox2.Text & "','" & TextBox4.Text & "'"
            sql = sql & "," & TextBox5.Text & ",'" & TextBox6.Text & "')"
            Cmd = New OleDbCommand(sql, conn)
            Rd = Cmd.ExecuteReader
        End If
        conn.Close()
    End Sub
End Class

Imports System.Data
Imports System.Data.OleDb
Public Class CConnect

    Dim strcon As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\???\???\???.accdb"
'ที่ใส่ ??? คือให้ใส่ Directory เอาเองนะครับ
    Dim con As New OleDbConnection(strcon)
    Function getdata(ByVal sql As String)
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter(sql, con)
        ds.Clear()
        da.Fill(ds, "table")
        Return ds
    End Function
Function query(ByVal sql As String)
        Dim com As New OleDbCommand
        com.CommandText = sql
        com.CommandType = CommandType.Text
        com.Connection = con
        con.Open()
        Dim i As Integer = com.ExecuteNonQuery()
        con.Close()
        Return i
    End Function
End Class

Imports System.Collections
Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Dim ds As New DataSet
    Dim conn As OleDbConnection
   
   

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\noh\My Documents\Database1_be.mdb")[color=green]อันนี้ใสที่อยู่ดาต้า
        If conn.State = ConnectionState.Open Then conn.Close()
        conn.Open()
        btnRemove.Enabled = False
        lodnnn()

    End Sub