[SaedAmer]

كود الاتصال بقاعدة البيانات المحددة

كود :

Public Constr9 As String
   Public conn9 As New OleDbConnection(Constr9)
   'Public cmd9 As OleDbCommand = conn9.CreateCommand
   Public adapt9 As New OleDbDataAdapter
   Public ddda As DataTable
   Public save_user As OleDbCommandBuilder
   Public ds9 As New DataSet
   Public BS9 As New BindingSource




   Public Sub read_data(ByVal xxxx As String)
       Try

           Constr9 = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & xxxx
           conn9.ConnectionString = Constr9
           conn9.Open()

           ds9.Clear()
           Dim str9 As String = "SELECT * FROM mmm"
           'تعريف كائن وفق الأستعلام والأتصال'
           adapt9 = New OleDbDataAdapter(str9, conn9)
           'ملئ الدتا ست بالبيانات'
           adapt9.Fill(ds9, "mmm")
           'سحب البينات من الدتا ست'
           BS9.DataSource = ds9
           BS9.DataMember = "mmm"
           CRM_Form.DataGridView1.DataSource = ds9.Tables(0)



       Catch ex As Exception
           MsgBox("فشل في قراءة البيانات")
       End Try

   End Sub