作者ytlty (小兔)
看板Visual_Basic
标题Re: [VBA ] excel中对access查询的问题？
时间Tue Apr 25 11:56:38 2006
正确的写法如下，若有问题再问我罗!!
: Private Sub CommandButton1_Click()
: On Error GoTo 100
: If TextBox1.Text = "" Then
: MsgBox "号码", 1 + 16, "系统提示"
: TextBox1.SetFocus
: Else
: Dim DB1 As Database
: Dim RS1 As Recordset
: Set DB1 = OpenDatabase(ThisWorkbook.Path & "\资料.mdb")
: Set RS1 =DB1.OpenRecordset("SELECT * FROM 成绩表 WHERE 号码=" & TEXTBOX1.TEXT)
IF RS1.RECORDCOUNT=0 THEN
:
:
: MsgBox "对不起，没有该记录"
: RS1.Close
: Exit Sub
: Else
: TextBox2.Value = RS1.Fields("号码").Value
: TextBox3.Value = RS1.Fields("成绩").Value
: TextBox4.Value = RS1.Fields("名字").Value
: End If
: RS1.Close
: Set RS1 = Nothing
: Set DB1 = Nothing
: End If
: Exit Sub
: 100:
: MsgBox "找不到符合条件的记录", 1 + 16, "系统提示"
: End Sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.228.59.3