vb 檢測(cè)數(shù)據(jù)庫(kù)中的表名和字段名

'要在工程菜單中引用對(duì)象庫(kù)Microsoft?ActiveX?Data?Objects?2.5?Library和Microsoft?ADO?Ext?2.1.?For?DDL?Security

Dim?DBmode?As?New?ADOX.Catalog??'不用DBmode用另外一個(gè)名字也可以

Dim?DEXdatabase?As?String?'連接數(shù)據(jù)庫(kù)用的字符

Dim?BaseName?As?String????'數(shù)據(jù)庫(kù)名

Dim?PathName?As?String????'數(shù)據(jù)庫(kù)路徑

Dim?Conn?As?Connection

Dim?RSdb?As?Recordset

Dim?MyTable?As?Table

Private?Sub?Combo1_Click()

Dim?Table?As?String

????

????On?Error?GoTo?EditErr?'當(dāng)讀系統(tǒng)表時(shí)會(huì)出錯(cuò)，因?yàn)椴辉试S

????Table?=?Combo1.Text

????Me.Cls

????Set?RSdb?=?New?Recordset

????????RSdb.Open?select?*?from??&?Table,?Conn,?adOpenStatic,?adLockReadOnly

?????????print?表名,DBmode.Tables(I).Name

????????print?類型,DBmode.Tables(I).Type?

????????Print?共有?&?RSdb.Fields.Count?&?個(gè)字段

????????For?I?=?0?To?RSdb.Fields.Count?-?1

????????????Print?RSdb.Fields(I).Name

????????Next

????????????

????????RSdb.Close

????Set?RSdb?=?Nothing

????Exit?Sub

????

EditErr:

??MsgBox?(Err.Description)

End?Sub

Private?Sub?Command1_Click()

???Dim?A?As?Long

???Dim?B?As?Long

???

On?Error?GoTo?EditErr?'

???Combo1.Clear

???DBmode.ActiveConnection?=?DEXdatabase

???A?=?DBmode.Tables.Count

???B?=?0

???For?I?=?0?To?A?-?1

??????If?DBmode.Tables(I).Type?=?SYSTEM?TABLE?Then?'系統(tǒng)表不顯示,一定要大寫,否則會(huì)出錯(cuò)

??????

??????Else

???????Combo1.AddItem?(DBmode.Tables(I).Name)

???????B?=?B?+?1

??????End?If

???Next

????Combo1.Text?=?Combo1.List(0)

????Combo1_Click

????Exit?Sub

????

EditErr:

??MsgBox?(Err.Description)

End?Sub

Private?Sub?Form_Load()

????BaseName?=?my_database.mdb?'你的數(shù)據(jù)庫(kù)名，你可以改動(dòng)它

????PathName?=?App.Path?&?\?&?BaseName?'你的數(shù)據(jù)庫(kù)位置，你可以改動(dòng)它

????DEXdatabase?=?Provider=Microsoft.Jet.OLEDB.4.0;Data?Source=?&?PathName

?

????Set?Conn?=?New?Connection

????Conn.CursorLocation?=?adUseClient

????Conn.Open?DEXdatabase

End?Sub

如何檢查和設(shè)置數(shù)據(jù)庫(kù)的基本屬性

1.Power script 語(yǔ)言里的事務(wù)處理對(duì)象怎么理解

PowerBuilder程序與數(shù)據(jù)庫(kù)之間傳遞信息的一個(gè)結(jié)構(gòu)變量，共有15個(gè)成員.你可以詳細(xì)列表它的所有成員看看它的組成.PB的應(yīng)用程序會(huì)初始化一個(gè)全局的結(jié)構(gòu)體變量,SQLCA,當(dāng)然你也可以自定義一個(gè)自己的事務(wù)對(duì)象.

1 DBMS string 所使用的數(shù)據(jù)庫(kù)管理系統(tǒng)的名字，如Sybase,Oracle,ODBC。

2 Database string 要連接的數(shù)據(jù)庫(kù)名字。

3 UserID string 連接數(shù)據(jù)庫(kù)所用的用戶名。有的DBMS不需要此項(xiàng)。

4 DBPass string 用戶連接數(shù)據(jù)庫(kù)的口令。

5 Lock string 這是數(shù)據(jù)庫(kù)的保護(hù)級(jí)別，一般不必給出。

6 LogID string 登錄到數(shù)據(jù)庫(kù)服務(wù)器上的用戶名，有的DBMS不需要此項(xiàng)，但Sybase和Oracle需要指定這個(gè)參數(shù)。

7 LogPass string 登錄到數(shù)據(jù)庫(kù)服務(wù)器上的用戶口令。這個(gè)屬性可設(shè)可不設(shè)，但Sybase和Oracle需要指定口令。