خطا الاتصال بقاعدة البيانات - نسخة قابلة للطباعة

خطا الاتصال بقاعدة البيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : خطا الاتصال بقاعدة البيانات (/showthread.php?tid=27275)

خطا الاتصال بقاعدة البيانات - محمد خيري - 04-11-18

اخواني بعد اذنكم كيف يمكن ادخل عبارة strconnection التي بالفورم1 كيف يمكن اضيفها ادخلها في الموديل و املا الداتا غريد1 لانها تعطيني خطا بالاتصال.او تصحيح من فضلكم الاتصال بارك الله فيكم

كود :

Imports System.Data

Imports System.Data.OleDb

Module Module1

    Public Con As New OleDbConnection

    Public DtaSet As New DataSet()

    Public OleDa As New OleDbDataAdapter()

    Public Sub Data_Connection()

        If Con.State = ConnectionState.Open Then Con.Close()

        Try

            Con = New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source=|datadirectory|\GALERY.mdb ")

            Con.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message, "لم يتم الإتّصال", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.DefaultDesktopOnly)

            Con.Close()

            End

        End Try

    End Sub

End Module

كود :

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Try

            With Con

                If .State <> ConnectionState.Open Then

                    .ConnectionString = StrConnection()

                    .Open()

                    With OleDa

                        .SelectCommand = New OleDbCommand()

                        .SelectCommand.CommandText = "SELECT * FROM Customers order by Serial_Number"

                        .SelectCommand.Connection = Con

                        Dim Ole As New OleDbCommandBuilder(OleDa)

                        DtaSet.Clear()

                        .Fill(DtaSet, "Table1")

                    End With

        Catch ex As Exception

            MsgBox(ex.Message(), MsgBoxStyle.Critical, "Error...")

        Finally

            Con.Close()

        End Try

    End Sub

End Class

الخطا بهاذي السطور

كود :

   With Con

                If .State <> ConnectionState.Open Then

                    .ConnectionString = StrConnection()

                    .Open()

بارك الله في الجميع

RE: خطا الاتصال بقاعدة البيانات - ahmadpal - 04-11-18

موقع او مسار قاعدة البيانات جرب هذا قد يكون هو السبب

كود :

   Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=GALERY.mdb;Jet OLEDB:Database Password=;")

RE: خطا الاتصال بقاعدة البيانات - محمد خيري - 05-11-18

(04-11-18, 11:00 PM)ahmadpal كتب : موقع او مسار قاعدة البيانات جرب هذا قد يكون هو السبب

كود :

Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=GALERY.mdb;Jet OLEDB:Database Password=;")

شكرا اخي احمد المسار متاكد انو صحيح المشكلة بالفورم لود شكرا اخي