فرامرز90
دوشنبه 11 مهر 1390, 01:18 صبح
با سلام به دوستان من در حال نوشتن یه برنامه هستم اما به یه مشکل برخوردم خطوط برنامه در زیر آورده شده لطفا بررسی کنید ممنون میشم
Dim con4 As New System.Data.OleDb.OleDbConnection
Dim myPath4 As String
myPath4 = System.Windows.Forms.Application.StartupPath + "\DATABASE.mdb"
con4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & myPath4 & ";"
con4.Open()
Dim selectString4 As String = "SELECT * FROM data where [data].id=" & TextBox6.Text & " and [data].first='" & TextBox2.Text & "' and [data].fath='" & TextBox4.Text & "';"
' Dim selectString4 As String = "SELECT * FROM data where first='" & TextBox2.Text & "' and last='" & TextBox3.Text & "'" ' and fath='" & TextBox4.Text & "' and id=" & TextBox6.Text & ""
Dim cmd4 As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand(selectString4, con4)
Dim reader4 As System.Data.OleDb.OleDbDataReader = cmd4.ExecuteReader()
مشکل اینه که READER4 جواب نمیده
Dim con4 As New System.Data.OleDb.OleDbConnection
Dim myPath4 As String
myPath4 = System.Windows.Forms.Application.StartupPath + "\DATABASE.mdb"
con4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & myPath4 & ";"
con4.Open()
Dim selectString4 As String = "SELECT * FROM data where [data].id=" & TextBox6.Text & " and [data].first='" & TextBox2.Text & "' and [data].fath='" & TextBox4.Text & "';"
' Dim selectString4 As String = "SELECT * FROM data where first='" & TextBox2.Text & "' and last='" & TextBox3.Text & "'" ' and fath='" & TextBox4.Text & "' and id=" & TextBox6.Text & ""
Dim cmd4 As System.Data.OleDb.OleDbCommand = New System.Data.OleDb.OleDbCommand(selectString4, con4)
Dim reader4 As System.Data.OleDb.OleDbDataReader = cmd4.ExecuteReader()
مشکل اینه که READER4 جواب نمیده