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

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

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

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

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

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

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)表時會出錯，因為不允許

????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?&?個字段

????????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)表不顯示,一定要大寫,否則會出錯

??????

??????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ù)庫名，你可以改動它

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

????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ù)庫的基本屬性

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

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

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

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

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

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

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

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

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