作者LovelyVivi (如果.爱)
看板Visual_Basic
标题Re: [VB6 ] 关於access
时间Tue Mar 7 00:54:34 2006
现在还有另外一个问题 是不能查询
我想要用我输入的名称去查询
书上写按键的程式码是
Private Sub Command8_Click()
Dim strID As String
On Error GoTo FindErr
strID = Text1.Text
adoEnp.Recordset.Find " 供应商编号 =" & Val(strID)
Exit Sub
FindErr:
MsgBox Err.Description
End Sub
而且Val 应该是变数 如果我现在希望搜寻的是供应商
也就是 Text1.Text里是中文字 我应该要更改哪个部份阿
我试过 Str Chr 都不行..
--
╭╮ ○ ＊ ✽ ○ ╭╮ ✽ ╭╮＊╮ ○ ✽
║╣ ✽╭╦═╮╭╮ ╮╭╦═╮║╣ ○ ║╣ ║ ● ╭╮ ╮ ●
║╣ ║╣ ║║╣✽║║╣＊║║╣╭ ╭╮║╣✽║╭╮║╣ ║╭╮
║╣＊ ║╣○║║╣＊║║╬═╯║╣║✽║╣║╣ ║║╣║╣＊║║╣
╰╩═╯╰╩═╯╰╩═╯╰╩═╯╰╯╰═╣╣╰╩═╯╰╯╰╩═╯╰╯
http://www.wretch.cc/album/LovelyVivi╰═╩╯ ＊
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 211.22.72.250
※ 编辑: LovelyVivi 来自: 211.22.72.250 (03/07 23:58)
※ 编辑: LovelyVivi 来自: 211.22.72.250 (03/07 23:58)
1F：→ colawei:把val()拿掉,前後加"'" 03/09 20:00