在第二個窗體form2上添加datagrid控件。
註意:示例中使用的數據庫是access。使用時,在文本框控件中輸入查詢的SQL語句。例如select * form數據庫中的表名。
私有子命令1_Click()
Dim mycon As ADODB。關系
Dim myrt As ADODB。記錄集
Set mycon = New ADODB。關系
設置myrt = New ADODB。記錄集
mycon。ConnectionString = " Provider = Microsoft。Jet . OLEDB.4.0數據源=輸入數據庫文件位置,如(D:\db1。MDB)"
mycon。打開
米爾特。CursorLocation = adUseClient
米爾特。打開Text1。Text,mycon,adOpenStatic,adLockOptimistic
設置表單2。DataGrid1DataSource = myrt
表格2。顯示
末端接頭