VB.Net程序设计：ADO.Net读取Access表架构

程序只是记录而已，还没有完成。

请不要模仿。

 
 

  
  
ImportsSystem.Data 
  
  
ImportsSystem.Data.OleDb 
  
  

  
  
PublicClassForm1 
  
  

  
  
DimConnStrAsString=String.Format("Provider=Microsoft.Jet.OLEDB.4.0;DataSource={0};UserId=admin;Password={1};","D:\product.MDB","") 
  
  
DimconnAsOleDb.OleDbConnection 
  
  
DimcmdAsOleDb.OleDbCommand 
  
  
DimsqlAsString
  
  

  
  
PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load 
  
  
'cmd=NewOleDbCommand(sql,conn) 
  
  
'cmd.ExecuteNonQuery() 
  
  
conn=NewOleDb.OleDbConnection(ConnStr) 
  
  
EndSub
  
  

  
  
PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click 
  
  
DimdtAsDataTable 
  
  
DimtblAsDataTable 
  
  
Dimtbl2AsDataTable 
  
  

  
  
conn.open() 
  
  
'tbl=conn.GetSchema()=数据库的所有架构信息。 
  
  
'获取用户表 
  
  
tbl=conn.GetSchema("tables",NewString(){nothing,nothing,"table"}) 
  
  
'tbl=conn.GetSchema("tables")=所有表，包括系统表。 
  
  
tbl2=conn.GetSchema() 
  
  
'=不大支持的方法 
  
  
dt=conn.GetoleDbSchemaTable(OleDbSchemaGuid.Tables,NewObject(){nothing,"TABLE"}) 
  
  

  
  
Me.ListBox1.Items.Clear() 
  
  
ForiAsInteger=0Todt.Rows.Count-1 
  
  
Me.ListBox1.Items.Add(dt.Rows(i)("TABLE_NAME").ToString()) 
  
  
Next
  
  

  
  
Me.DataGridView1.DataSource=tbl 
  
  
Me.DataGridView2.DataSource=tbl2 
  
  
conn.Close() 
  
  

  
  
EndSub
  
  

  
  
PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click 
  
  
DimtblAsDataTable 
  
  
IfString.IsNullOrEmpty(Me.TextBox1.Text)=FalseThen
  
  
conn.open() 
  
  
tbl=conn.GetSchema("columns",Me.TextBox1.Text}) 
  
  
Dimrows()AsDaTarow=tbl.Select("","Ordinal_Position") 
  
  
Me.ListBox2.Items.Clear() 
  
  
ForEachrowAsDaTarowInrows 
  
  
Me.ListBox2.Items.Add(row.Item("column_name")) 
  
  
Next
  
  
Me.DataGridView2.DataSource=tbl 
  
  
conn.Close() 
  
  
EndIf
  
  

  
  
EndSub
  
  

  
  
PrivateSubListBox1_SelectedindexChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesListBox1.SelectedindexChanged 
  
  
IfMe.ListBox1.SelectedItems.Count>0Then
  
  
Me.TextBox1.Text=Me.ListBox1.SelectedItem.ToString 
  
  
EndIf
  
  
EndSub
  
  

  
  
PrivateSubButton3_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesBtnGetDatatable.Click 
  
  
DimdbAsNewAccessHelper 
  
  
db.connStr=ConnStr 
  
  
IfMe.TextBox1.Text>""Then
  
  
db.open() 
  
  
Me.DataGridView3.DataSource=db.GetDataView("select*from"&Me.TextBox1.Text) 
  
  
EndIf
  
  

  
  
EndSub
  
  
EndClass
 
 

原文地址：https://www.jb51.cc/vb/260861.html