我想在用户经常输入的一些内容,我给它单独放到了一个数据库name中的name表中,有两 个字段,一个是字段pinyin存放这些内容的拼音缩写,另一个就是字段neirong常用的内容,我想在用户输入这些缩写后能自动显示,我想在一个text1.text中实现,响应keypress down 事件,请教各位了!
...全文
542打赏收藏
关于方便输入的问题
我想在用户经常输入的一些内容,我给它单独放到了一个数据库name中的name表中,有两 个字段,一个是字段pinyin存放这些内容的拼音缩写,另一个就是字段neirong常用的内容,我想在用户输入这些缩写后能自动显示,我想在一个text1.text中实现,响应keypress down 事件,请教各位了!
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