تقييم الموضوع :
  • 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 ك ب / التحميلات : 49)
الرد
تم الشكر بواسطة: myalsailamy , makky
#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 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حفظ ليست بوكس items إلى my.Sittinds visualist2015 1 42 15-06-19, 04:44 AM
آخر رد: asemshahen5
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 12 292 14-06-19, 03:03 PM
آخر رد: elgokr
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 8 156 05-06-19, 03:40 AM
آخر رد: heshamelkomy71
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 11 318 04-06-19, 03:12 PM
آخر رد: elgokr
  مشكلة في الاتصال بقاعدة البيانات والسيرفر sqlserver nooralcown 1 266 03-06-19, 12:33 PM
آخر رد: سعود
  [ تمّ الحل ] : تنسيق التاريخ بقاعدة البيانات : الأكسس عبد العزيز البسكري 16 906 03-06-19, 11:56 AM
آخر رد: سعود
  [VB.NET] تصدير البيانات من عدة جداول الى قالب وورد معد مسبقا" aljzazy 1 127 21-05-19, 02:03 PM
آخر رد: alshandodi
  [VB.NET] اضافة ايقونة لصفوف الداتاجريد فيو محمد اسماعيل 5 187 17-05-19, 10:33 PM
آخر رد: محمد اسماعيل
  [سؤال] حل مشكلة عدم وجود اضافة vlc في فجويل حاتمي 2 113 16-05-19, 02:11 PM
آخر رد: حاتمي
  أدوات قواعد البيانات في الدوت نت وطريقة استخدامها معتز حسن 4 206 16-05-19, 01:42 PM
آخر رد: elgokr

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


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