تقييم الموضوع :
  • 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=;")
 فورم تسجيل الدخول
www.tiny.cc/y80k6y
 بلوك لمستخدم على البرنامج
الرد
تم الشكر بواسطة:
#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] مشكله في موضوع الاتصال بالانترنت dubai.eig 3 93 اليوم, 01:38 AM
آخر رد: dubai.eig
  خطأ في كود الاتصال معاذ_ابراهيم 6 147 اليوم, 12:08 AM
آخر رد: معاذ_ابراهيم
  [VB.NET] تصدير البيانات من عدة جداول الى قالب وورد معد مسبقا" aljzazy 1 58 أمس, 02:03 PM
آخر رد: alshandodi
  أدوات قواعد البيانات في الدوت نت وطريقة استخدامها معتز حسن 4 147 16-05-19, 01:42 PM
آخر رد: elgokr
Heart [VB.NET] كل عام وانتم بخير ... محتاج كود نسخ قاعدة البيانات تلقائيا abdullhadi999 32 711 15-05-19, 08:24 PM
آخر رد: asemshahen5
  [VB.NET] تعديل اكتر من صف بقاعدة البيانات محمد اسماعيل 7 203 11-05-19, 09:21 PM
آخر رد: elgokr
  [VB.NET] قواعد البيانات MDF اسامه الهرماوي 3 133 05-05-19, 01:24 AM
آخر رد: ابراهيم ايبو
  فلترة البيانات باستخدام رسم بياني العيدروس 11 223 03-05-19, 01:34 AM
آخر رد: العيدروس
  حفظ كود في قاعده البيانات معاذ_ابراهيم 4 133 01-05-19, 03:42 PM
آخر رد: معاذ_ابراهيم
  خطأ في عملية حفظ محتوى datagridview إلى جدول من قاعدة البيانات ahmedfa71 7 126 23-04-19, 02:17 AM
آخر رد: elgokr

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


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