sa_2077
03-12-2006, 21:47
زمانیکه توسط یک query سرچ روی دیتابیس انجام میشه چطور میشه نتیجه سرچ رو در یک دیتاگرید نمایش داد
نتیجه کد زیر رو علاوه بر txtbox در دیتاگرید هم بریزه
Dim con1 As New SqlConnection("Persist Security Info=False;Integrated Security=SSPI;initial catalog=Test;")
Dim cmd As New SqlCommand("SELECT * FROM T where Lname='" & txtLname.Text.Trim & "' ", con1)
con1.Open()
Dim y As Integer
Dim x, z As String
cmd.ExecuteNonQuery()
Dim rdr As SqlDataReader
rdr = cmd.ExecuteReader
Try
While rdr.Read
x = rdr.GetValue(2)
y = rdr.GetValue(0)
z = rdr.GetValue(1)
End While
Catch ex As System.FormatException
Finally
rdr.Close()
con1.Close()
txtid.Text = y
txtLname.Text = x
txtFname.Text = z
End Try
نتیجه کد زیر رو علاوه بر txtbox در دیتاگرید هم بریزه
Dim con1 As New SqlConnection("Persist Security Info=False;Integrated Security=SSPI;initial catalog=Test;")
Dim cmd As New SqlCommand("SELECT * FROM T where Lname='" & txtLname.Text.Trim & "' ", con1)
con1.Open()
Dim y As Integer
Dim x, z As String
cmd.ExecuteNonQuery()
Dim rdr As SqlDataReader
rdr = cmd.ExecuteReader
Try
While rdr.Read
x = rdr.GetValue(2)
y = rdr.GetValue(0)
z = rdr.GetValue(1)
End While
Catch ex As System.FormatException
Finally
rdr.Close()
con1.Close()
txtid.Text = y
txtLname.Text = x
txtFname.Text = z
End Try