تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة الليست بوكس علي هيئة تيكست اللي قاعدة البيانات
#1
هل يمكن اضافة الليست بوكس الي قاعدة البيانات اكسس علي هيئة نص بحيث تظل الصفوف كما هي
الرد }}}}
تم الشكر بواسطة:
#2
(26-09-16, 05:34 PM)makky كتب : هل يمكن اضافة الليست بوكس الي قاعدة البيانات اكسس علي هيئة نص بحيث تظل الصفوف كما هي

هل تقصد حفظ كافة صفوف الليست بوكس الى حقل واحد في عمود معين في جدول أكسس؟
ممكن لكن بعمود من نوع مذكرة ...
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#3
شوف الكود
PHP كود :
Public Class Form1
    Dim con 
As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
 
   Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load

    End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        ListBox1
.Items.Add(InputBox(""))
 
   End Sub

    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        If ListBox1
.Items.Count 2 Then
            Dim cm 
As New OleDb.OleDbCommand(""con)
 
           Dim allstring As String ""
 
           For r 0 To ListBox1.Items.Count 1
                allstring 
&= ListBox1.Items.Item(r).ToString "@"
 
           Next
            cm
.CommandText "insert into tb(t) values(@t)"
 
           cm.Parameters.AddWithValue("@t"allstring)
 
           Try
                con
.Open()
 
               cm.ExecuteNonQuery()
 
               MsgBox("Done")
 
           Catch ex As Exception
                MsgBox
(Err.DescriptionMsgBoxStyle.Critical)
 
           End Try
 
       End If
 
   End Sub

    Private Sub Button3_Click
(sender As ObjectAs EventArgsHandles Button3.Click
        Dim cm 
As New OleDb.OleDbCommand(""con)
 
       cm.CommandText "select *  from tb"
 
       Dim allstring As String ""
 
       Dim dr As OleDb.OleDbDataReader
        Try
            con
.Open()
 
           dr cm.ExecuteReader

            While dr
.Read
                allstring 
&= dr(1)

 
           End While
 
           For Each h In allstring.Split("@")
 
               ListBox2.Items.Add(h)
 
           Next
        Catch ex 
As Exception
            MsgBox
(Err.DescriptionMsgBoxStyle.Critical)
 
       End Try
 
   End Sub
End 
Class 


الملفات المرفقة
.zip   For_makky.zip (الحجم : 54.75 ك ب / التحميلات : 28)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: myalsailamy
#4
(26-09-16, 09:50 PM)سعود كتب : شوف الكود
PHP كود :
Public Class Form1
    Dim con 
As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
 
   Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load

    End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        ListBox1
.Items.Add(InputBox(""))
 
   End Sub

    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        If ListBox1
.Items.Count 2 Then
            Dim cm 
As New OleDb.OleDbCommand(""con)
 
           Dim allstring As String ""
 
           For r 0 To ListBox1.Items.Count 1
                allstring 
&= ListBox1.Items.Item(r).ToString "@"
 
           Next
            cm
.CommandText "insert into tb(t) values(@t)"
 
           cm.Parameters.AddWithValue("@t"allstring)
 
           Try
                con
.Open()
 
               cm.ExecuteNonQuery()
 
               MsgBox("Done")
 
           Catch ex As Exception
                MsgBox
(Err.DescriptionMsgBoxStyle.Critical)
 
           End Try
 
       End If
 
   End Sub

    Private Sub Button3_Click
(sender As ObjectAs EventArgsHandles Button3.Click
        Dim cm 
As New OleDb.OleDbCommand(""con)
 
       cm.CommandText "select *  from tb"
 
       Dim allstring As String ""
 
       Dim dr As OleDb.OleDbDataReader
        Try
            con
.Open()
 
           dr cm.ExecuteReader

            While dr
.Read
                allstring 
&= dr(1)

 
           End While
 
           For Each h In allstring.Split("@")
 
               ListBox2.Items.Add(h)
 
           Next
        Catch ex 
As Exception
            MsgBox
(Err.DescriptionMsgBoxStyle.Critical)
 
       End Try
 
   End Sub
End 
Class 

(16-10-16, 06:09 PM)makky كتب :
(26-09-16, 09:50 PM)سعود كتب : شوف الكود
PHP كود :
Public Class Form1
    Dim con 
As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
 
   Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load

    End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        ListBox1
.Items.Add(InputBox(""))
 
   End Sub

    Private Sub Button2_Click
(sender As ObjectAs EventArgsHandles Button2.Click
        If ListBox1
.Items.Count 2 Then
            Dim cm 
As New OleDb.OleDbCommand(""con)
 
           Dim allstring As String ""
 
           For r 0 To ListBox1.Items.Count 1
                allstring 
&= ListBox1.Items.Item(r).ToString "@"
 
           Next
            cm
.CommandText "insert into tb(t) values(@t)"
 
           cm.Parameters.AddWithValue("@t"allstring)
 
           Try
                con
.Open()
 
               cm.ExecuteNonQuery()
 
               MsgBox("Done")
 
           Catch ex As Exception
                MsgBox
(Err.DescriptionMsgBoxStyle.Critical)
 
           End Try
 
       End If
 
   End Sub

    Private Sub Button3_Click
(sender As ObjectAs EventArgsHandles Button3.Click
        Dim cm 
As New OleDb.OleDbCommand(""con)
 
       cm.CommandText "select *  from tb"
 
       Dim allstring As String ""
 
       Dim dr As OleDb.OleDbDataReader
        Try
            con
.Open()
 
           dr cm.ExecuteReader

            While dr
.Read
                allstring 
&= dr(1)

 
           End While
 
           For Each h In allstring.Split("@")
 
               ListBox2.Items.Add(h)
 
           Next
        Catch ex 
As Exception
            MsgBox
(Err.DescriptionMsgBoxStyle.Critical)
 
       End Try
 
   End Sub
End 
Class 

الحمد لله توصلت الي حل وتم عمل اول اصدار من البرنامج.جزاك الله خيرا اخي سعود
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كمبو بوكس داخل الداتا جريد فارس احمد السيد 5 119 أمس, 09:44 PM
آخر رد: فارس احمد السيد
  كيفية عرض البيانات فى DataGridView فى وضع CrossTab noway 1 70 21-02-17, 09:03 PM
آخر رد: noway
  ازاى اصمم جدول فى قاعدة بيانات 2D noway 5 111 20-02-17, 04:27 AM
آخر رد: khodor1985
  استفسار عن تعبئة combobox من قاعدة البيانات المتألق9 2 75 16-02-17, 11:57 AM
آخر رد: المتألق9
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 59 12-02-17, 08:06 PM
آخر رد: مساعدة
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 1 47 12-02-17, 06:19 PM
آخر رد: مساعدة
  طلب صغير جمع عامود من جدول واضهار النتيجة في تكست بوكس nmst70 4 94 12-02-17, 06:17 PM
آخر رد: مساعدة
  [VB.NET] قاعدة بيانات SQL 2008R2 محمد بوقزاحة 5 104 09-02-17, 03:31 PM
آخر رد: مساعدة
  [سؤال] مشكلة في قاعدة البيانات عبدالرحمن المكاوي 2 65 08-02-17, 05:43 PM
آخر رد: عبدالرحمن المكاوي
  [VB.NET] خطأ في كود الاتصال بقاعدة البيانات ،، مرفق مشروع أبووسم 5 115 08-02-17, 04:56 PM
آخر رد: atefkhalf2004

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


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