大家好，我想使用vb实现显示数据库信息的功能

Question

我在使用vb，以下是向数据库添加记录的代码，Private Sub add_cmd_Click()
 Dim cn As adodb.Connection Dim n As Long 
   Set cn = New adodb.Connection
   cn.Open "PROVIDER=MICROSOFT.Jet.OLEDB.4.0;Data Source=D:\Version\VB_code\UDP-2\DataBase\Switch_Data.mdb;"
    
    sql = "insert into 上传数据(数据) values ('" & Trim(Text1.Text) & "')"
    cn.Execute sql, n
    MsgBox "记录添加成功！", vbOKOnly + vbInformation, "提示"
    Text1.Text = ""
  
 
 cn.Close Set cn = NothingEnd Sub
现在想实现：
使用一个命令按钮，点击该命令按钮display，将这个数据库中的表显示在文本框display_text中。
该怎么实现呢
请高手指教！

Answer 1

Text1.Text=cn.Execute("select 数据 from 上传数据").Fields(0)
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) http://feiyun0112.cnblogs.com/

Answer 2

给你几个我写好的函数，能满足你的要求。
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
'函数功能：连接指定的数据库
'参数说明：cnnP：数据库连接对象；
'        ：adoP：数据集存储对象；
'        ：strPath：数据库路径；
'        ：strPassword：数据库密码；
'返回说明：True：连接成功   False：连接失败
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
Public Function funConnectDataBase(cnnP As ADODB.Connection, adoP As ADODB.Recordset, ByVal strPath As _
    String, ByVal strPassword As String) As Boolean
On Error GoTo errFunction
    Set cnnP = New ADODB.Connection
    Set adoP = New ADODB.Recordset
    cnnP.Provider = "Microsoft.Jet.OLEDB.4.0"
    cnnP.Open "Data Source = " & strPath & ";jet oledb:database password=" & strPassword
    funConnectDataBase = True
    Exit Function
errFunction:
    funConnectDataBase = False
End Function
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
'函数功能：关闭数据库连接对象和数据文件的关联
'参数说明：cnnP：数据库连接对象；
'        ：adoP：数据库存储对象；
'返回说明：True：关闭连接成功   False：关闭连接失败
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
Public Function funCloseDataBase(cnnP As ADODB.Connection, adoP As ADODB.Recordset) As Boolean
On Error GoTo errFunction
    Set adoP = Nothing
    Set cnnP = Nothing
    funCloseDataBase = True
    Exit Function
errFunction:
    funCloseDataBase = False
End Function
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
'过程功能：对指定的对象执行指定的SQL语句
'参数说明：cnnP：ADO连接对象
'        ：adoP：ADO记录集对象
'        ：strSql：SQL语句
'        ：bolQueryRecord：是否是查询记录集
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
Public Sub subExcuteSQL(cnnP As ADODB.Connection, adoP As ADODB.Recordset, strSql As String, bolQueryRecord _
    As Boolean)
    If bolQueryRecord Then  '如果是查询记录集
        adoP.Open strSql, cnnP, adOpenStatic, adLockBatchOptimistic
    Else
        cnnP.Execute strSql
    End If
End Sub

Answer 3

1楼的语句不全啊
提示field没有必选参数
怎办呢

Answer 4

使用一个命令按钮，点击该命令按钮display，将这个数据库中的表显示在文本框display_text中????????表怎么能显示在文本框中？？？？？？？？？

Answer 5

楼主 使用记录集可以实现：
Dim strSQL As String
strSQL = "select 字段 from 数据表 where 字段='" + ？？+ "'"    '你要显示那个字段的数据
Obj.Open                                                 '连接数据库对象
If Obj.State = adStateOpen Then
   RS.Open strSQL, Obj, adOpenDynamic, adLockBatchOptimistic   ‘Rs是记录集
   If RS.EOF Then
     MsgBox "没有你想要的数据"
     RS.Close
   Else
     Text1.Text = RS.Fields("字段").Value    '关键就是这句
      RS.Close
   End If
  End If
祝你成功！！！