تقييم الموضوع :
  • 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] جمع قيمة اثناء عملية تحديث البيانات محمد اسماعيل 0 32 أمس, 07:32 PM
آخر رد: محمد اسماعيل
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 1 66 08-12-18, 02:22 PM
آخر رد: nandy2016
  [VB.NET] استفسار :- بخصوص تنزيل الداتا في قاعدة البيانات dubai.eig 0 43 06-12-18, 04:36 PM
آخر رد: dubai.eig
  حذف ملف خارجي بدلالة قاعدة البيانات riyadh jihad 1 47 01-12-18, 02:11 PM
آخر رد: حريف برمجة
  [VB.NET] خطأ في الاتصال بـ Server baha 3 91 30-11-18, 01:18 AM
آخر رد: حريف برمجة
  [سؤال] > نقل البيانات من جدول اوركل الى اس كيو ال ssayed111 1 38 21-11-18, 04:12 PM
آخر رد: حريف برمجة
  [سؤال] اضافة التاريخ الى قاعدة البيانات allo5_800 2 86 18-11-18, 02:17 AM
آخر رد: allo5_800
  سؤال في الاتصال بالاكسس اسامه الهرماوي 0 56 17-11-18, 07:05 PM
آخر رد: اسامه الهرماوي
Star اريد حل حفظ البيانات vb2010 41 1,006 14-11-18, 04:13 PM
آخر رد: dasktop
  مشكلة ايجاد قاعدة البيانات m.reyati 5 109 13-11-18, 02:06 AM
آخر رد: mero5000

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


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