vb 如何调用access表中的数据 并显示在文本框中

[hzjczhangxu]

我想在select 语句中使用一个变量，不知道怎么用啊

例如，select * from company where id=i
其中，i是一个变量，不是固定值

[Baby]

dim sql$
sql="select * from company where id=" & i

[eaqpi]

dim sqlstr as string ="select * from company where id=" & i

[ARCHORPROG]

dim sqlstr as string ="select * from company where id=" & i

[ACMAIN_CHM]

学习一下ＡＤＯ的知识！
[Quote]
ADO 程序员指南
要了解对《Microsoft ActiveX Data Objects (ADO) 程序员指南》的简介，请参阅以下主题：

简介
ADO 的新增内容
前提条件
组成 ADO 家族的库
Microsoft Data Access 中 ADO 的角色
ADO 任务表
ADO 技术表 [/Quote]

[Quote]ADO 任务表
下表列出了包含在《ADO 程序员指南》中的编程任务，并为每个任务提供了参考。这些参考都是文本说明或代码范例，您可在其中看到有关执行任务的 ADO 功能的信息。

ADO 任务 参考
连接数据提供者 建立连接
执行命令或调用存储过程 使用 Command 对象
打开 Recordset Recordset 对象的 Open 方法
确定 Recordset 的大小 对行计数和记录集的限制
移动到某个特定记录 导航数据
访问列值 Fields 集合
搜索数据 使用 Recordset
修改数据并更改值 编辑现有记录
添加新数据 添加记录
删除数据 使用 Delete 方法删除记录
将更改传递到数据源 更新数据
开始、提交并回卷事务 事务处理
将记录存储到文件（XML 或二进制) 保持数据
处理错误 ADO 错误
处理事件，异步编程 ADO 事件处理程序汇总
选择游标位置和类型 游标的类型
选择锁定类型 锁定类型
返回 Recordset 中的相关记录 数据构形汇总
访问半结构化数据 Chapter 10: Records and Streams
发布到 IIS 使用 ADO 进行 Internet 发布
[/Quote]

[ACMAIN_CHM]

Open 和 Close 方法范例 (VB)
本范例在已打开的 Recordset 和 Connection 对象上使用 Open 和 Close 方法。

'BeginOpenVB

    'To integrate this code
    'replace the data source and initial catalog values
    'in the connection string

Public Sub OpenX()
    On Error GoTo ErrorHandler

    Dim Cnxn As ADODB.Connection
    Dim rstEmployees As ADODB.Recordset
    Dim strCnxn As String
    Dim strSQLEmployees As String
    Dim varDate As Variant
    
    ' Open connection
    strCnxn = "Provider='sqloledb';Data Source='MySqlServer';" & _
        "Initial Catalog='Pubs';Integrated Security='SSPI';"
    Set Cnxn = New ADODB.Connection
    Cnxn.Open strCnxn
    
    ' Open employee table
    Set rstEmployees = New ADODB.Recordset
    strSQLEmployees = "employee"
    rstEmployees.Open strSQLEmployees, Cnxn, adOpenKeyset, adLockOptimistic, adCmdTable
    
    ' Assign the first employee record's hire date
    ' to a variable, then change the hire date
    varDate = rstEmployees!hire_date
    Debug.Print "Original data"
    Debug.Print "  Name - Hire Date"
    Debug.Print "  " & rstEmployees!fname & " " & _
        rstEmployees!lname & " - " & rstEmployees!hire_date
    rstEmployees!hire_date = #1/1/1900#
    rstEmployees.Update
    Debug.Print "Changed data"
    Debug.Print "  Name - Hire Date"
    Debug.Print "  " & rstEmployees!fname & " " & _
        rstEmployees!lname & " - " & rstEmployees!hire_date
    
    ' Requery Recordset and reset the hire date
    rstEmployees.Requery
    rstEmployees!hire_date = varDate
    rstEmployees.Update
    Debug.Print "Data after reset"
    Debug.Print "  Name - Hire Date"
    Debug.Print "  " & rstEmployees!fname & " " & _
       rstEmployees!lname & " - " & rstEmployees!hire_date

    ' clean up
    rstEmployees.Close
    Cnxn.Close
    Set rstEmployees = Nothing
    Set Cnxn = Nothing
    Exit Sub
    
ErrorHandler:
    ' clean up
    If Not rstEmployees Is Nothing Then
        If rstEmployees.State = adStateOpen Then rstEmployees.Close
    End If
    Set rstEmployees = Nothing
    
    If Not Cnxn Is Nothing Then
        If Cnxn.State = adStateOpen Then Cnxn.Close
    End If
    Set Cnxn = Nothing
    
    If Err <> 0 Then
        MsgBox Err.Source & "-->" & Err.Description, , "Error"
    End If
End Sub
'EndOpenVB

[ACMAIN_CHM]

当您的问题得到解答后请及时结贴.
http://topic.csdn.net/u/20090501/15/7548d251-aec2-4975-a9bf-ca09a5551ba5.html