this is the code in vb.net for searching when a serial number is given from the sqldatabase.....................
Private Sub s2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s2.Click
Dim a As Integer
Dim b As Boolean
Dim connection As OleDb.OleDbConnection
Dim command As OleDb.OleDbCommand
Dim dr As OleDb.OleDbDataReader
connection = New OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;data source='e:\amit kumar\nic hyd\nichyd.mdb'")
connection.Open()
command = New OleDb.OleDbCommand("select *from gate_pass", connection)
dr = command.ExecuteReader
b = False
If (sno2.Text = "") Then
b = True
MessageBox.Show("enter the serial number first")
Else
Try
a = Integer.Parse(sno2.Text)
While dr.Read()
If (a = dr(0)) Then
Dim bytImage() As Byte
bytImage = CType(dr(9), Byte())
Dim ms As New System.IO.MemoryStream(bytImage)
Dim bmImage As New Bitmap(ms)
Form5.r0.Text = dr(0)
Form5.r1.Text = dr(1)
Form5.r2.Text = dr(2)
Form5.r3.Text = dr(3)
Form5.r4.Text = dr(4)
Form5.r5.Text = dr(5)
Form5.r6.Text = dr(6)
Form5.r7.Text = dr(7)
Form5.r8.Text = dr(8)
Form5.picout.Image = bmImage
Form5.picout.Refresh()
b = True
dr.Close()
connection.Close()
Me.Hide()
Form5.Show()
Exit While
End If
End While
Catch ex As FormatException
Me.ErrorProvider1.SetError(sno2, "please enter a numeric value")
MessageBox.Show("please enter a numeric value")
sno2.Focus()
b = True
End Try
End If
If (b = False) Then
MessageBox.Show("No data found matching to this serial number")
End If
dr.Dispose()
connection.Dispose()
dr.Close()
connection.Close()
sno2.Text = ""
Me.ErrorProvider1.Clear()
End Sub
is this one right in asp.net coding also. if there are any changes plz mention it thanking you