[Ikramynasr]

Imports System.Data.OleDb

Public Class Form1
    Public Conn As New OleDbConnection("Provider=microsoft.Ace.oledb.12.0;" & "Data Source=" & Application.StartupPath & "\Registration.accdb; Password=vision0307")
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim da As New OleDbDataAdapter
        Dim ds As New DataSet
        Dim dt As New DataTable

        da = New OleDbDataAdapter("Select * From Reg", Conn)

        da.Fill(ds, "reg")
        da.Fill(dt)

        DataGridView1.DataSource = dt

[أشرف كريم 2]

الخطا في password في الاكسس تكون

كود :

Jet OLEDB:Database Password=vision0307

كود :

Public Conn As New OleDbConnection("Provider=microsoft.Ace.oledb.12.0;" & "Data Source=" & Application.StartupPath & "\Registration.accdb; Jet OLEDB:Database Password=vision0307")

---

احذف السطر التالي ملوش لزمه
da.Fill(ds, "reg")

كفايه السطر ده وهو اللي ربطته بالداتاقريد
da.Fill(dt)

[Ikramynasr]

(27-10-21, 05:11 PM)أشرف كريم 2 كتب : الخطا في password في الاكسس تكون

كود :

Jet OLEDB:Database Password=vision0307

كود :

Public Conn As New OleDbConnection("Provider=microsoft.Ace.oledb.12.0;" & "Data Source=" & Application.StartupPath & "\Registration.accdb; Jet OLEDB:Database Password=vision0307")

---

احذف السطر التالي ملوش لزمه
da.Fill(ds, "reg")

كفايه السطر ده وهو اللي ربطته بالداتاقريد
da.Fill(dt)

تسلم يا حبي اشتغل