دوست عزیز فکر کنم مشکلتون با برنامه پیوستی زیر حل بشه ولی اگه می خواهید خوب بفهمید باید زبان ارتباط پایگاههای اطلاعاتی SQL رو یاد بگیرید و نیز مطالعه ی خوبی هم در ADO.NET داشته باشید.
امید وارم مشکلتون حل بشه
میتونین یه دیتا بیس با نام dbTest با یک جدول با نام tbTest و با فیلدهای Words و Meanings بسازین و در مسیر اجایی برنامه تون قرار بدین و کدها :
Public Class Form1
' ایجاد یک ارتباط دهنده به پایگاه داده ای در اکسس
Dim strCnn As String = "Provider = Microsoft.Jet.OleDB.4.0; Data Source = dbTest.mdb;"
Dim objCnn As New OleDb.OleDbConnection(strCnn)
Dim strSQL As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text.Trim <> String.Empty Then
Dim objCmd As OleDb.OleDbCommand
objCnn.Open()
' درج اطلاعات در داخل جدولی در این پایگاه
strSQL = "Insert Into tbTest (Words, Meanings) Values ('" & TextBox1.Text & "' , '" & TextBox2.Text & "')"
objCmd = New OleDb.OleDbCommand(strSQL, objCnn)
objCmd.ExecuteNonQuery()
objCmd.Dispose()
strSQL = String.Empty
objCnn.Close()
FillListBox()
End If
End Sub
Private Sub FillListBox()
' روالی برای نمایش اطلاعات در لیست باکس
ListBox1.Items.Clear()
objCnn.Open()
' نمایش اطلاعات در لیست باکس
strSQL = "Select Words From tbTest Order By Words ASC"
Dim objCmd As New OleDb.OleDbCommand(strSQL, objCnn)
Dim objDr As OleDb.OleDbDataReader = objCmd.ExecuteReader
Do While objDr.Read
ListBox1.Items.Add(objDr("Words"))
Loop
strSQL = String.Empty
objDr.Close()
objCmd.Dispose()
objCnn.Close()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
FillListBox()
End Sub
Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
Dim strWord As String = ListBox1.SelectedItem
objCnn.Open()
' جستجوی ساده برای کلمه انتخاب شده در لیست
strSQL = "Select Meanings From tbTest Where Words ='" & strWord & "'"
Dim objCmd As New OleDb.OleDbCommand(strSQL, objCnn)
TextBox3.Text = objCmd.ExecuteScalar
strSQL = String.Empty
objCmd.Dispose()
objCnn.Close()
End Sub
End Class
فایل آماده برنامه رو هم می تونین استفاده کنین