Kết nối Cơ sở dữ liệu access với VB net

Làm một form cập nhật trong VB.Net, sử dụng Lưới Listview, dùng CSDL Access

2. Dim str_cn As String
3.         Dim strSql As String
4.         Try
5.             ' khoi tao doi tuong OleDbConnection
6.             str_cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.Windows.Forms.Application.StartupPath() & " \qlGiaoVien.mdb "
7.             Dim Con_nn As New OleDbConnection(str_cn)
8.  
9.             ' Khai bao va khoi tao doi tuong OleDbCommand
10.             strSql = " select * from tbKhoa "
11.             Dim cmdC As OleDbCommand = New OleDbCommand(strSql, Con_nn)
12.             Con_nn.Open()
13.         Catch ex As Exception
14.             MsgBox(ex.Message)
15.         End Try
16.  

Với đoạn code như trên mà không kết nối với dữ liệu được thì có lẽ bạn chưa chép tập tin glGiaoVien.mdb vào thư mục bin\debug của project.
Lưu ý: Application.StartupPath sẽ trả lại chuỗi đường dẫn đến thư mục bin\debug



1.  
2. Dim str_cn As String
3. Dim strSql As String
4. Try
5.     ' khoi tao doi tuong OleDbConnection
6.     str_cn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.Windows.Forms.Application.StartupPath() & " \qlGiaoVien.mdb "
7.     Dim Con_nn As New OleDbConnection(str_cn)
8.  
9.     Con_nn.Open() 'Dòng này phải có trước OleDBCommand và / hoặc OleDbDataAdapter
10.  
11.     ' Khai bao va khoi tao doi tuong OleDbCommand
12.     strSql = " select * from tbKhoa "
13.     Dim daC As OleDbDataAdapter = New OleDbDataAdapter(strSql, Con_nn)
14.     Dim dtC As New DataTable
15.     daC.Fill(dtC)
16. Catch ex As Exception
17.     MsgBox(ex.Message)
18. End Try
19. biết gán cho combobox thì sẽ biết đối với listbox 
20. 1.  
    2. Sub FillListBox(ByVal lst as ListBox,ByVal sql as String, ByVal s1 as String, ByVal s2 as String)
    3.    Dim ds as DataSet=new DataSet()
    4.    Dim da as SqlDataAdapter=new SQLDataAdapter(sql,con)
    5.    da.Fill(ds)
    6.    lst.DataSource=ds.Table(0)
    7.    lst.DisplayMember=s1
    8.    lst.ValueMember=s2
    9. End Sub
      ---------------
21. 1.  
    2. Sub connect()
    3.      Try
    4.           'vô http://connectionstrings.com tham khảo thêm
    5.           con=New SqlConnection("Data Source=trang;Initial Catalog=Center_Library;Integrated Security=True")
    6.           con.Open()
    7.      Catch ex as SqlException
    8.           Messagebox.Show("Không kết nối đc","Thông báo",MessageBoxButtons.OK,MessageBoxIcon.Error)  
    9.      End Try
    10. End Sub

    
    

    1. On Error GoTo ErrTrap
    2.         myAccessConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
    3.             "Data Source=" & Application.StartupPath & "\CSDL\Data.mdb" & ";Persist Security Info=False ;Jet OLEDB:Database Password=nguyenngocbaotran")
    4.         myAccessConnection.Open()
    5.         dbCmd.Connection = myAccessConnection
    6.         dbReader = dbCmd.ExecuteReader(CommandBehavior.SingleResult)
    7.         b = False
    8.         Do While (dbReader.Read())
    9.             On Error Resume Next ' Các số từ 0 đến 6 tương ứng với các trường dữ liệu trong DataBase
    10.             LName.Items.Add(dbReader.GetString(0))
    11.             LMota.Items.Add(dbReader.GetString(1))
    12.             LKey.Items.Add(dbReader.GetString(2))
    13.             LWind.Items.Add(dbReader.GetString(3))
    14.             LKieu.Items.Add(dbReader.GetString(4))
    15.             LValue.Items.Add(dbReader.GetString(5))
    16.             LNote.Items.Add(dbReader.GetString(6))
    17.         Loop
    18.