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 Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ListBox1.Items.Add(InputBox(""))
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 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.Description, MsgBoxStyle.Critical)
End Try
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 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.Description, MsgBoxStyle.Critical)
End Try
End Sub
End Class
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير

