如何在VB中取得数据库表中的字段名

Question

如何在VB中取得数据库表中的字段名

Answer 1

http://blog.csdn.net/online/archive/2004/09/08/98744.aspx

Answer 2

Dim tb As ADODB.Recordset
  Dim SQLdb As ADODB.Connection
  Dim ConnStr As String
  Set SQLdb = New ADODB.Connection
  List1.Clear
  'ConnStr = "Driver={SQL Server};SERVER=127.0.0.1;UID=123;PWD=123;DATABASE=cmppe"
  ConnStr = "driver={Microsoft Access Driver (*.mdb)};dbq=G:\Vehicle.mdb"
  SQLdb.ConnectionTimeout = 999
  SQLdb.Open ConnStr
  Set tb = New ADODB.Recordset
  Set tb = SQLdb.OpenSchema(4)
  Do While Not tb.EOF
    If tb("Table_name") = "Vehicle" Then
      List1.AddItem tb("column_Name")
      'List1.AddItem tb("Table_name")
    End If
    tb.MoveNext
  Loop
  tb.Close

Answer 3

private conn as adodb.connection
private rs as adodb.recordset
set conn=new adodb.connection
conn.connectionstring="provider=microsoft.jet.oledb.4.0;data source=" & app.path & "\table.mdb;" & "persist security info=false"
set rs=conn.openschema(adschematable)
do until rs.eof
   if rs.fields("TABLE_TYPE")="TABLE" then
      combo1.additem rs.fields("TABLE_NAME").value   '将数据库中的所有表名保存在combo1中
   end if
   rs.movenext
   doevents   '此句一定要
loop
rs.close
set rs=nothing
conn.close
set conn=nothing

Answer 4

dim Fld as Field
for each fld in rst.fields
 debug.print fld.name
next