select * from syscolumns where name=tablename 就是这样了!还要如何具体阿很多事情自己想啊
请参考我的VB源代码(以vb自带的Nwind.mdb数据库的customers表为例)。 Dim connNwind As ADODB.Connection Dim rsCustomers As ADODB.Recordset Dim i As Integer Set connNwind = New ADODB.Connection With connNwind .CursorLocation = adUseClient .ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=Nwind.mdb" .Open End With Set rsCustomers = New ADODB.Recordset With rsCustomers .Open "customers", connNwind, adOpenStatic, adLockReadOnly, adCmdTable For i = 0 To .Fields.Count - 1 Debug.Print "Name of field" & CStr(i) & " is " & .Fields(i).Name Debug.Print "FieldType is " & .Fields(i).Type Debug.Print "FieldDefinedSize is " & .Fields(i).DefinedSize Debug.Print "FieldActualSize is " & .Fields(i).ActualSize '......You can show other properties here Next i .Close End With Set rsCustomers = Nothing connNwind.Close: Set connNwind = Nothing
就是这样了!还要如何具体阿很多事情自己想啊
Dim connNwind As ADODB.Connection
Dim rsCustomers As ADODB.Recordset
Dim i As Integer
Set connNwind = New ADODB.Connection
With connNwind
.CursorLocation = adUseClient
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=Nwind.mdb"
.Open
End With
Set rsCustomers = New ADODB.Recordset
With rsCustomers
.Open "customers", connNwind, adOpenStatic, adLockReadOnly, adCmdTable
For i = 0 To .Fields.Count - 1
Debug.Print "Name of field" & CStr(i) & " is " & .Fields(i).Name
Debug.Print "FieldType is " & .Fields(i).Type
Debug.Print "FieldDefinedSize is " & .Fields(i).DefinedSize
Debug.Print "FieldActualSize is " & .Fields(i).ActualSize
'......You can show other properties here
Next i
.Close
End With
Set rsCustomers = Nothing
connNwind.Close: Set connNwind = Nothing
我觉得一个数据库,如果让用户仅仅用ASP便可以很容易的获得数据库结构,那DBA太失职了吧。