Question

我无法从价值表箱中获取选定栏的数值。我错了。私人名单清单中似乎有一些错误。

Option Explicit

  The database file name.
 Private m_DBFile As String

  List the fields in this table.
 Private Sub ListFields(ByVal db_file As String, ByVal db_table_name As String)
 Dim statement As String
 Dim conn As ADODB.Connection
 Dim rs As ADODB.Recordset

  Open a connection.
Set conn = New ADODB.Connection
conn.ConnectionString = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & db_file & ";" & _
    "Persist Security Info=False"
conn.Open

lstFields.Clear

  Use OpenSchema and get the table names.
Set rs = conn.OpenSchema(adSchemaColumns, _
    Array(Empty, Empty, db_table_name))

Do While Not rs.EOF
    lstFields.AddItem rs!column_name
    rs.MoveNext
Loop

rs.Close
conn.Close
End Sub

  List the tables in the database.
Private Sub ListTables(ByVal db_name As String)
Dim statement As String
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

  Open a connection.
Set conn = New ADODB.Connection
conn.ConnectionString = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & db_name & ";" & _
    "Persist Security Info=False"
conn.Open

lstTables.Clear
lstFields.Clear
lstValues.Clear

  Use OpenSchema and get the table names.
Set rs = conn.OpenSchema(adSchemaTables, _
    Array(Empty, Empty, Empty, "Table"))
Do While Not rs.EOF
    lstTables.AddItem rs!TABLE_NAME
    rs.MoveNext
Loop

rs.Close
conn.Close
End Sub

 Private Sub ListValues(ByVal db_file As String, ByVal db_column_name As String)
 Dim statement As String
 Dim conn As ADODB.Connection
 Dim rs As ADODB.Recordset

  Open a connection.
Set conn = New ADODB.Connection
conn.ConnectionString = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & db_file & ";" & _
    "Persist Security Info=False"
conn.Open

lstValues.Clear

  Use OpenSchema and get the Column  Value.
 Set rs = conn.OpenSchema(adSchemaColumns, _
    Array(Empty, Empty, db_table_name))
Set rs = conn.OpenSchema(adSchemaIndexes, _
Array(Empty, Empty, Empty, Empty,db_column_name))


Do While rs.EOF
    lstValues.AddItem rs!INDEX_NAME
    rs.MoveNext
Loop

rs.Close
conn.Close
End Sub
Private Sub lstTables_Click()
If lstTables.ListIndex < 0 Then Exit Sub

ListFields m_DBFile, lstTables.Text
End Sub

Private Sub lstFields_Click()
Dim db_column_name As String
If lstFields.ListIndex < 0 Then Exit Sub
db_column_name = lstFields.List(lstFields.ListIndex)

ListValues m_DBFile, lstValues.Text
End Sub

Private Sub mnudbFile_Click()
 Open existing Weight database file
cdlFiles.Flags = cdlOFNFileMustExist + cdlOFNPathMustExist
cdlFiles.Filter = "Database Files (*.mdb)|*.mdb"
cdlFiles.DialogTitle = "Open Database File"
cdlFiles.InitDir = App.Path
On Error GoTo HandleErrors
ReOpen:
cdlFiles.ShowOpen

m_DBFile = cdlFiles.FileName

 List the tables.
ListTables m_DBFile
Exit Sub
HandleErrors:
If Err.Number = cdlCancel Then Exit Sub
Select Case MsgBox(Err.Description, vbCritical + vbAbortRetryIgnore, "Error Number" + Str(Err.Number) + " in " + Err.Source)
Case vbAbort
Exit Sub
Case vbRetry
Resume ReOpen
Case vbIgnore
  Resume Next
 End Select

End Sub

Answer 1

名单上的人没有发言。

Do While rs.EOF

应当:

Do While Not rs.EOF

Answer 2

1. 修改贵国的《名单》:

  Private Sub ListValues(ByVal db_file As String, ByVal db_table_name as String, ByVal        
  db_column_name As String)
  Dim statement As String
  Dim conn As ADODB.Connection
  Dim rs As ADODB.Recordset

开放联系

  Set conn = New ADODB.Connection
  conn.ConnectionString = _
  "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & db_file & ";" & _
  "Persist Security Info=False"
  conn.Open

lstValues.Clear

Set rs = New ADODB.Recordset

rs.Open "SELECT*FROM " & db_table_name & " WHERE " & db_column_name, conn, adOpenStatic, adLockOptimistic

Do While Not rs.EOF
     lstValues.AddItem rs.Fields(db_column_name).Value
     rs.MoveNext
Loop

rs.Close
conn.Close
End Sub

您的编码中的另一个错误内容是:

Your Code:
    Set rs = conn.OpenSchema(adSchemaIndexes, _
    Array(Empty, Empty, Empty, Empty,db_column_name))

Right code:
    Set rs = conn.OpenSchema(adSchemaIndexes, _
    Array(Empty, Empty, Empty, Empty,db_table_name))

友情链接