تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ربط فيجول بيسك بقاعدة البيانات
#1
Imports System.Data, System.Data.OleDb
----------------------------------------------------------
Public Class Form1
    Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\DataBase.mdb"
    Dim Con As New OleDbConnection(ConStr)
    Dim DataSet1 As New DataSet
--------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\hhhhh\Desktop\salmon.accdb"
    End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------

ذزر الاضافة هل الكود صيح لانه لا يستجيب معي  من خلال رسالة تفيد error in Insert into statement  l ;l كما موضح بل الكتابة باللون الاحمر  
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Con.Open()

        'Try


        Dim cmdinser As New OleDbCommand
      ححح  cmdinser.Connection = Con
        cmdinser.CommandText = "INSERT INTO person (txt_id,txt_name,txt_nanb,com_tp,txt_ph,com_cou,txt_fa,txt_are,com_fa,com_fs,txt_po,com_pty,txt_su,txt_fee,txt_fom,txt_ado1,txt_ado2,DateTimePicker1.).values('" + txt_id.Text + "','" + txt_name.Text + "','" + txt_nanb.Text + "','" + com_tp.Text + "','" + txt_ph.Text + "','" + com_cou.Text + "','" + txt_fa.Text + "','" + com_fs.Text + "','" + txt_po.Text + "','" + com_pty.Text + "','" + txt_su.Text + "','" + txt_fom.Text + "','" + txt_ado2.Text + "'," + txt_ado2.Text + "','" + txt_date.Text + ")"
         cmdinser.ExecuteNonQuery()
        MsgBox("تمت الاضافة بنجاح")

        'Catch ex As Exception
        '    MessageBox(ex.Message.ToString)

        'End Try

        Con.Close()

    End Sub
الرد
تم الشكر بواسطة:
#2
ممكن ترفق مثال مصغر للتوضيح أكثر
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد
تم الشكر بواسطة:
#3

.rar   fkh.rar (الحجم : 409.34 ك ب / التحميلات : 99) اشكرك جزيل الشكر اخي الكريم hamada salah على الاهتمام
هو برنامج لاحصاء وحصر التصديقات في ادارتنا انشات قاعدت بيانات اكسس وفورم بالبيانات بالفيجول بيسك 2010 فتحت قاعدة البيانات بالاكواد لكن
ذر اضافة لا يستجيب بادخال البيانات الى القاعدة بالرغم من وضع الكود ومراجعته اكثر من مره نرجو المساعدة ان امكن
سارفق لك جزء من البرنامج .....
نرجو المساعدة ..... بااارك الله فيك وفي والديك
الرد
تم الشكر بواسطة:
#4
يا أخي جملة Insert غير صحيحة
وتوجد العديد من الأخطاء والحقول المنسية
تم التصحيح ومرفق المثال بعد التعديل

وفقنا الله واياكم


الملفات المرفقة
.rar   fkh.rar (الحجم : 407.95 ك ب / التحميلات : 146)
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خطأ في الإتصال بقاعدة البيانات الموجودة على هذا السيرفر (ويندوز 10) djelloul 0 61 04-05-18, 12:14 AM
آخر رد: djelloul
  بحث و اظهار سجلات من قاعدة البيانات في حال تساوت اول 4 ارقام من text بالقيمه الموجود ahmed_elwerfalli 0 72 25-04-18, 04:12 PM
آخر رد: ahmed_elwerfalli
  إضافة الصورة في قاعدة البيانات iFanfan 0 130 01-03-18, 06:02 PM
آخر رد: iFanfan
  معرفة اصدار نسخة قاعدة البيانات atefkhalf2004 8 162 27-01-18, 06:07 PM
آخر رد: أبو عمر
  [VB.NET] مشكلة في تحديث البيانات larbihamri 2 209 04-11-17, 07:37 PM
آخر رد: larbihamri
  [VB.NET] اضافه الصور الى قاعدة البيانات رمنس الشوق 1 272 23-10-17, 03:22 AM
آخر رد: khodor1985
  مسار قاعدة البيانات اكسس Mostafa Yousry 6 2,212 24-09-17, 08:23 PM
آخر رد: alsouf
  شرح جمل الاتصالsql مع فيجوال بيسك atefkhalf2004 1 245 20-09-17, 09:22 PM
آخر رد: محمد كريّم
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 329 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  هل يمكن حفظ البيانات من dataGridView مباشرة؟ abozeyd 3 467 15-08-17, 02:11 PM
آخر رد: abozeyd

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


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