vb ´íÎó3021

Dim no As String
Dim cn As New ADODB.Connection
Dim rs  As New ADODB.Recordset
Dim rs1  As New ADODB.Recordset
Dim sq1 As String
Dim sq2 As String
Private Sub Command1_Click()
  no = InputBox("ÇëÊäÈëÎÊÌâºÅ", "ÎÊÌâºÅ")
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\×ÀÃæ\½ÌÎñ\db1.mdb"
  sq1 = "select* from liuyan  where no='" & Trim(no) & "'"
  rs.Open sq1, cn, 1, 1
  If rs.EOF = False Then
    MsgBox "ûÓиüǼ£¡"
   
  Else
    Text1.Text = rs("no")
    Text2.Text = rs("liuyan")
    Text3.Text = rs("huida")
  End If
  rs.Close
  cn.Close
End Sub

Private Sub Command2_Click()
  End
End Sub
´íÎóÄÚÐÍ£ºÇë½Ì´ó¸çÄǵط½´íÁË
Êý¾Ý¿â£º

---

ÊÇ·ñÊÇno×ֶεÄÊý¾ÝÀàÐÍÓÐÎÊÌâ¡£

---

Ó¦¸Ã²»ÊÇ°É

---

  If rs.EOF Then
    MsgBox "ûÓиüǼ£¡"
   
  Else
    Text1.Text = rs("no")
    Text2.Text = rs("liuyan")
    Text3.Text = rs("huida")
  End If