'要在工程菜单中引用对象库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 '连接数据库用的字符
Dim BaseName As String '数据库名
Dim PathName As String '数据库路径
Dim Conn As Connection
Dim RSdb As Recordset
Dim MyTable As Table
Private Sub Combo1_Click()
Dim Table As String
On Error GoTo EditErr '当读系统表时会出错，因为不允许
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 '系统表不显示,一定要大写,否则会出错
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 '你的数据库名，你可以改动它
PathName = App.Path & \ & BaseName '你的数据库位置，你可以改动它
DEXdatabase = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & PathName
Set Conn = New Connection
Conn.CursorLocation = adUseClient
Conn.Open DEXdatabase
End Sub
1.Power script 语言里的事务处理对象怎么理解
PowerBuilder程序与数据库之间传递信息的一个结构变量，共有15个成员.你可以详细列表它的所有成员看看它的组成.PB的应用程序会初始化一个全局的结构体变量,SQLCA,当然你也可以自定义一个自己的事务对象.
1 DBMS string 所使用的数据库管理系统的名字，如Sybase,Oracle,ODBC。
2 Database string 要连接的数据库名字。
3 UserID string 连接数据库所用的用户名。有的DBMS不需要此项。
4 DBPass string 用户连接数据库的口令。
5 Lock string 这是数据库的保护级别，一般不必给出。
6 LogID string 登录到数据库服务器上的用户名，有的DBMS不需要此项，但Sybase和Oracle需要指定这个参数。
7 LogPass string 登录到数据库服务器上的用户口令。这个属性可设可不设，但Sybase和Oracle需要指定口令。
