vb 檢測(cè)數(shù)據(jù)庫(kù)中的表名和字段名
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?類(lèi)型,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)表不顯示,一定要大寫(xiě),否則會(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ù)所用的用戶(hù)名。有的DBMS不需要此項(xiàng)。
4 DBPass string 用戶(hù)連接數(shù)據(jù)庫(kù)的口令。
5 Lock string 這是數(shù)據(jù)庫(kù)的保護(hù)級(jí)別,一般不必給出。
6 LogID string 登錄到數(shù)據(jù)庫(kù)服務(wù)器上的用戶(hù)名,有的DBMS不需要此項(xiàng),但Sybase和Oracle需要指定這個(gè)參數(shù)。
7 LogPass string 登錄到數(shù)據(jù)庫(kù)服務(wù)器上的用戶(hù)口令。這個(gè)屬性可設(shè)可不設(shè),但Sybase和Oracle需要指定口令。