تقييم الموضوع :
  • 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 ك ب / التحميلات : 21)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: 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 

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 1 58 منذ 9 ساعة مضت
آخر رد: abid
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 1 47 أمس, 06:31 PM
آخر رد: ابراهيم النعيمي
Video [VB.NET] كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر elhon.tec 1 60 أمس, 03:36 AM
آخر رد: elhon.tec
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 3 73 08-12-16, 09:07 PM
آخر رد: محمد كريّم
  [VB.NET] اضافة التاريخ في الطباعة في الريبورت فيور hglogtd 8 92 08-12-16, 08:35 PM
آخر رد: ابراهيم النعيمي
  الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو makky 2 86 08-12-16, 11:16 AM
آخر رد: superwoofer
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 15 221 07-12-16, 09:50 PM
آخر رد: ابراهيم النعيمي
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 59 07-12-16, 11:22 AM
آخر رد: ممدوح الخطيب
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 4 99 07-12-16, 01:11 AM
آخر رد: adel27
Sad [VB.NET] كيفية تصميم قاعدة بيانات SQL Server وربطها مع الVS 2010 Ayman97 0 32 06-12-16, 04:34 PM
آخر رد: Ayman97

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


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