实现自动显示的方法,50分不知够不够?

Question

想法很简单,一个TEXTBOX和一个LABEL,另加一个数据表:这个表只有两个字段,一个是CODE,一个是NAME,第个CODE对应一个不同NAME值.当我在TEXT中输入CODE字段的值的时候,LABEL就马上显示库内和CODE 对应的NAME的值.

Answer 1

我的这个方法是不一种比较笨的方法！不过如果没有别的办法的时候你可以这样试试。
你在TEXTBOX_CHANGE（）这个事件里写代码！
DIM RS AS NEW ADODB。RECORDSET
RS。OPEN“SELCT * FROM TABLE WHERE CODE=‘”& TEXTBOX。TEXT &"'"，CN，1，2
IF NOT RS。EOF THEN
  LABEL。CAPTION=RS（“NAME”）
END IF
你试试看，能不能用！不能用告诉我一下！

Answer 2

有很多方法都可以实现
方法1:
private Function GetName(ByVal strCode As String,Byval StrTableName As String,Byref cn As ADODB.Connection) As String
    Dim rs as adodb.recordset
    Dim strSQL as string    On Error ReSume Next
    Set rs=New Adodb.Recordset
    strSQL="Select Name From " & strTableName & " Where Code ='" & strCode & "'"
    rs.open strSQL,cn
    GetName=rs(0).value
End Function
    

Answer 3

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Label1.Caption = GetName(Text1)
    End If
End SubPrivate Function GetName(strCode As String) As String
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    
    Dim strSql As String
    strSql = "SELECT Name FROM YourTable WHERE Code='" & strCode & "'"
    On Error GoTo errHandle
    rs.Open strSql, cn, 1, 3
    
    If rs.RecordCount > 0 Then
        GetName = "" & rs("Name")
    Else
        MsgBox "此编号没有对应姓名"
        GetName = ""
    End If
    rs.Close
    Set rs = Nothing
    
    Exit Function
errHandle:
    MsgBox "出现错误"
    GetName = ""
    Set rs = Nothing
End Function

Answer 4

我一个程序界面有15处都需要这种效果所以用 GetName Function你可以 自己多加几个参数 ，然后在每个要实现的地方类似如下即可：
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        Label1.Caption = GetName(Text1)
    End If
End Sub

Answer 5

虫莲兄,再麻烦你看看下面这个问题http://expert.csdn.net/Expert/topic/1868/1868523.xml?temp=.5793726

Answer 6

lxcc(虫莲)兄,还有一个问题呀,我在用你的方法的时候,一个库为的CODE字为空为1,当空是表示否,当为1时表示是,但就是这个空值引起了错误,怎么解决呢,来吧,哥哥