سلام دوستان خسته نباشيد
من پروژمو بايد دوروز ديگه تحويل بدم ما توي ارتباط با ديتابيسم گير كردم
ديتابيسم : Access
زبان برنامه نويسيم : vb.net 2008
ارتباطم برقرار ميشه اما روي يه ركورد ميمونه و توي همه جدول نميگرده.توي حلقه هم گذاشتمش اما بازم فايده نداشت.با SQL Server تست كردم بازم همين مشكلو داشت احساس ميكنم كدم مشكل داره واسه همين اينجا ميذارمش هركي بتونه كمكم كنه ممنون ميشم.مرسي دوستاي گلم
اول صفحه اينارو وارد ميكنم
من پروژمو بايد دوروز ديگه تحويل بدم ما توي ارتباط با ديتابيسم گير كردم
ديتابيسم : Access
زبان برنامه نويسيم : vb.net 2008
ارتباطم برقرار ميشه اما روي يه ركورد ميمونه و توي همه جدول نميگرده.توي حلقه هم گذاشتمش اما بازم فايده نداشت.با SQL Server تست كردم بازم همين مشكلو داشت احساس ميكنم كدم مشكل داره واسه همين اينجا ميذارمش هركي بتونه كمكم كنه ممنون ميشم.مرسي دوستاي گلم
اول صفحه اينارو وارد ميكنم
Imports System
Imports System.Data
Imports System.Data.Common
Imports System.Data.OleDb
dars = search_txt.Text
Dim connectString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Moradi\moradi.mdb"
Dim cn As OleDbConnection = New OleDbConnection(connectString)
cn.Open()
Dim selectString As String = "SELECT * from doroos "
Dim cmd As OleDbCommand = New OleDbCommand(selectString, cn)
Dim reader As OleDbDataReader = cmd.ExecuteReader
Do While reader.Read()
If reader("dars") = dars Then
no.Visible = False
result.Visible = True
dars_l.Visible = True
hamniaz_l.Visible = True
pishniaz_l.Visible = True
dars_l.Text = reader("dars")
hamniaz_l.Text = reader("hamniaz")
pishniaz_l.Text = reader("pishniaz")
Else
result.Visible = False
no.Visible = True
no.Text = "نتيجه اي يافت نشد"
End If
Loop
search_panel.Visible = True
reader.Close()
cn.Close()
Imports System.Data
Imports System.Data.Common
Imports System.Data.OleDb
توي event دكمه هم اينا رو ميذارم
Dim dars As String
dars = search_txt.Text
Dim connectString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Moradi\moradi.mdb"
Dim cn As OleDbConnection = New OleDbConnection(connectString)
cn.Open()
Dim selectString As String = "SELECT * from doroos "
Dim cmd As OleDbCommand = New OleDbCommand(selectString, cn)
Dim reader As OleDbDataReader = cmd.ExecuteReader
Do While reader.Read()
If reader("dars") = dars Then
no.Visible = False
result.Visible = True
dars_l.Visible = True
hamniaz_l.Visible = True
pishniaz_l.Visible = True
dars_l.Text = reader("dars")
hamniaz_l.Text = reader("hamniaz")
pishniaz_l.Text = reader("pishniaz")
Else
result.Visible = False
no.Visible = True
no.Text = "نتيجه اي يافت نشد"
End If
Loop
search_panel.Visible = True
reader.Close()
cn.Close()
