27-04-16, 01:21 PM
PHP كود :
Try
If txtname.Text = ("") Then
MsgBox("يرجى ادخال الاسم لغرض البحث")
End If
()conn.Open
"sqlstr = "Select * From tb Where name=@name
(cmd = New SqlCommand(sqlstr, conn
cmd.Parameters.Add("@name", SqlDbType.NVarChar, 50).Value = txtname.Text
(da = New SqlDataAdapter(cmd
ds = New DataSet
()ds.Clear
("da.Fill(ds, "tb
bs = New BindingSource
("bs.DataSource = ds.Tables("tb
()txtid.DataBindings.Clear
()txtname.DataBindings.Clear
("txtid.DataBindings.Add("Text", bs, "id_name
("txtname.DataBindings.Add("Text", bs, "name
()conn.Close
Catch ex As Exception
If conn.State = ConnectionState.Open Then conn.Close
(MsgBox(ex.Message
End Try
((نصر من الله وفتح قريب))