تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
خطا الاتصال بقاعدة البيانات
#1
اخواني بعد اذنكم كيف يمكن ادخل عبارة 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()
بارك الله في الجميع
الرد
تم الشكر بواسطة:
#2
موقع او مسار قاعدة البيانات  جرب هذا قد يكون هو السبب

كود :
   Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=GALERY.mdb;Jet OLEDB:Database Password=;")
الرد
تم الشكر بواسطة:
#3
(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=;")

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] قاعده البيانات لاتقوم بالحفظ من اول امر jassim316 3 54 منذ 9 ساعة مضت
آخر رد: princelovelorn
  [VB.NET] طريقة الاتصال واغلاق الاتصال بقاعدة البيانات dubai.eig 7 103 أمس, 05:54 PM
آخر رد: dubai.eig
  [كود] طريقة البحث عن صورة في قاعدة البيانات access باستعمال صورة أخرى technomedia 6 99 20-02-19, 04:01 PM
آخر رد: elgokr
  [VB.NET] فتح ارتباط تشعبي موجود ضمن قاعدة البيانات اكسس EMADSSS 2 73 17-02-19, 09:32 PM
آخر رد: EMADSSS
  برجاء تجربة المثال المرفق لتصدير البيانات الى اكسيل new_programer 7 158 15-02-19, 08:09 PM
آخر رد: new_programer
  [سؤال] عرض الصورة من قاعدة البيانات محمد اسماعيل 3 94 15-02-19, 06:28 AM
آخر رد: princelovelorn
  ماالفرق بين اكواد الاتصال هذه وايهما أفضل نور الهدى الهدى 4 146 14-02-19, 11:43 PM
آخر رد: محمد كريّم
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 4 126 14-02-19, 06:46 PM
آخر رد: عبد العزيز البسكري
  تغيير كلمة المرور في الفيجوال بيسك مع قواعد البيانات عبدالله اااا 3 103 11-02-19, 11:39 PM
آخر رد: princelovelorn
  عدم الحفظ في قاعدة البيانات في الوندوز 64 بايت raaddawood 9 179 06-02-19, 01:16 PM
آخر رد: sendbad100

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم