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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحديث قاعدة البيانات علي جهاز العميل makky 1 35 أمس, 04:13 PM
آخر رد: ahmedmansour
  مشكلة عند رفع قاعدة البينات فى الفيجول بيسك Mohamed Magdy 2 66 أمس, 10:38 AM
آخر رد: Mohamed Magdy
  سؤال فى التكست بوكس احمد خطاب 0 50 أمس, 09:29 AM
آخر رد: احمد خطاب
  [SQL] كيفية استيراد قاعدة بيانات من mysql الي sqlserver2014 alipro 1 45 أمس, 08:21 AM
آخر رد: rnmr
  مشكلة فى اضافة حقول جديدة فى قاعدة البيانات و ربطها بالفيجوال استوديو nabil.1710 1 55 18-10-18, 01:09 PM
آخر رد: nabil.1710
  كيف ابحث داخل قاعدة البيانات احمد خطاب 2 77 17-10-18, 01:51 AM
آخر رد: اسامه الهرماوي
  [نقاش] خطأ بسيط في الاتصال بقاعدة البيانات اسامه الهرماوي 4 147 17-10-18, 01:44 AM
آخر رد: اسامه الهرماوي
  البحث عن يوم في قاعدة البيانات atefkhalf2004 2 74 16-10-18, 09:18 PM
آخر رد: WAEL ABED
  اضافة زر امر للداتاجريد محمد خيري 6 114 16-10-18, 07:47 PM
آخر رد: محمد خيري
  سؤال :- عن التيكست بوكس احمد خطاب 1 64 16-10-18, 12:43 AM
آخر رد: عبد العزيز البسكري

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


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