تقييم الموضوع :
  • 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 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة صور فى subitem Mohamed20 1 40 منذ 3 ساعة مضت
آخر رد: مساعدة
  [VB.NET] سوال مشكلة في اخذ نسخة احتياطية من قاعدة بيانات SQL كفاح 4 89 14-01-17, 08:19 PM
آخر رد: كفاح
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 105 14-01-17, 12:36 PM
آخر رد: أبووسم
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 153 13-01-17, 11:15 PM
آخر رد: ammaraliali
  [VB.NET] استقبال البيانات عن طريق serail port engmedomed@gmail.com 1 63 11-01-17, 02:13 AM
آخر رد: مساعدة
  ترتيب 2 ليست بوكس حسب احدهما samira20 6 135 06-01-17, 06:40 PM
آخر رد: samira20
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 409 04-01-17, 01:12 AM
آخر رد: Namer
  تصدير البيانات الى PDF باستخدام ITextSharp لايدعم اللغة العربية فاطمة غ 8 341 04-01-17, 12:00 AM
آخر رد: مساعدة
  تغيير قاعدة البيانات الى .bak صبري زينوبي 5 129 01-01-17, 02:33 PM
آخر رد: صبري زينوبي
  [كود] استقسار عن الكومبوبكس والتيكست بوكس عبدالرحمن المكاوي 6 137 31-12-16, 07:35 PM
آخر رد: مساعدة

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


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