关于方便输入的问题

xzzhouhu 2003-03-10 03:53:43
我想在用户经常输入的一些内容,我给它单独放到了一个数据库name中的name表中,有两 个字段,一个是字段pinyin存放这些内容的拼音缩写,另一个就是字段neirong常用的内容,我想在用户输入这些缩写后能自动显示,我想在一个text1.text中实现,响应keypress down 事件,请教各位了!
...全文
54 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2003-03-11
  • 打赏
  • 举报
回复
数据库name中的name表:尽量不要用VB保留字符。
northwolves 2003-03-11
  • 打赏
  • 举报
回复

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Len(Text1) > 0 And KeyCode = 13 Then Text1 = hanzi(Text1)
End Sub
Function hanzi(ByVal py As String) As String
Dim mycnn As New ADODB.Connection
Dim myrst As New ADODB.Recordset
mycnn.Open "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\name.mdb"
myrst.Open "select neirong from name where pinyin=' " & py & "'", mycnn, adOpenKeyset, adLockOptimistic
If Not myrst.EOF Then myrst.movefirst
hanzi = myrst.fields(0).Value
Set myrst = Nothing
Set mycnn = Nothing
End Function

1,216

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧