锐客网

  1. 首页 > 睿知 > it技术 > >

vbnet制作mdb vbnet msdn

IT技术对象

VB.NET如何生成ACCESS数据库？并生成表 。VB.NET我的需求就是先填写好表和表中字段的名称 ， 然后点击一个按钮，就在指定的路径生成一个ACCESS数据库 。而不是事先手动创建 。请知道的各位附上完整代码，本人刚接触VB.NET，有些东西还不是很了解 。谢谢 。
用vb.net操作access数据库mportsSystem.Drawing
ImportsSystem.ComponentModel
ImportsSystem.Windows.Forms
ImportsSystem.Data.OleDb
ImportsSystem.Data
PublicClassForm1
InheritsForm
PrivatecomponentsAsSystem.ComponentModel.Container=Nothing
PrivateWithEventslastrecAsButton
PrivateWithEventsnextrecAsButton
PrivateWithEventspreviousrecAsButton
【vbnet制作mdb vbnet msdn】PrivateWithEventsfirstrecAsButton
Privatet_booksAsTextBox
Privatet_nlAsTextBox
Privatet_xbAsTextBox
Privatet_xmAsTextBox
Privatet_idAsTextBox
Privatel_booksAsLabel
Privatel_nlAsLabel
Privatel_xbAsLabel
Privatel_xmAsLabel
Privatel_idAsLabel
Privatelabel1AsLabel
PrivatemyDataSetAsDataSet
PrivateWithEventsbutton1AsButton
PrivateWithEventsbutton2AsButton
PrivateWithEventsbutton3AsButton
PrivateWithEventsbutton4AsButton
PrivatemyBindAsBindingManagerBase
PublicSubNew()
MyBase.New()
GetConnected()
InitializeComponent()
EndSub
'清除在程序中使用过vbnet制作mdb的资源
ProtectedOverloadsOverridesSubDispose(ByValdisposingAsBoolean)
IfdisposingThen
IfNot(componentsIsNothing)Then
components.Dispose()
EndIf
EndIf
MyBase.Dispose(disposing)
EndSub
PublicSubGetConnected()
'创建一个数据连接
DimstrConAsString="Provider=Microsoft.Jet.OLEDB.4.0;
DataSource=db.mdb"
DimmyConnAsOleDbConnection=NewOleDbConnection()
myConn.ConnectionString=strCon
DimstrComAsString="SELECT*FROMperson"
'创建一个DataSet
myDataSet=NewDataSet()
myConn.Open()
'通过OleDbDataAdapter对象得到一个数据集
DimmyCommandAsOleDbDataAdapter=NewOleDbDataAdapter
(strCom,myConn)
'把Dataset绑定books数据表
myCommand.Fill(myDataSet,"person")
'关闭此数据连接
myConn.Close()
EndSub
'插入数据记录操作代码
PrivateSubbutton2_Click(ByValsenderAsObject,_
ByValeAsSystem.EventArgs)Handlesbutton2.Click
'判断所有字段是否添完vbnet制作mdb，添完则执行vbnet制作mdb，反之弹出提示
If(t_id.Text""Andt_xm.Text""
Andt_xb.Text""Andt_nl.Text""
Andt_books.Text"")Then
DimmyConn1AsString="Provider=Microsoft.Jet.OLEDB.4.0;
DataSource=db.mdb"
DimmyConnAsOleDbConnection=NewOleDbConnection(myConn1)
myConn.Open()
DimstrInsertAsString="INSERTINTOperson(id,xm,xb,nl
,zip)VALUES("_
t_id.Text+",'"_
t_xm.Text+"','"_
t_xb.Text+"',"_
t_nl.Text+","_
t_books.Text+")"
DiminstAsOleDbCommand=NewOleDbCommand(strInsert,myConn)
inst.ExecuteNonQuery()
myConn.Close()
myDataSet.Tables("person").Rows(myBind.Position).BeginEdit()
myDataSet.Tables("person").Rows(myBind.Position).EndEdit()
myDataSet.Tables("person").AcceptChanges()
Else
MessageBox.Show("必须填满所有字段值vbnet制作mdb！","错误！")
EndIf
EndSub
vb 创建mdb文件创建MDB文件vbnet制作mdb，需要先执行【工程 】－ 【引用 】 Microsoft ADO Ext. 2.8 for DDL and......
Dim cata As New ADOX.Catalog
cata.Create ("Provider=Microsoft.Jet.OLEDB.4.0;data source="AccFullName"")
Set cata = Nothing
将AIS中vbnet制作mdb的表复制到上面建立vbnet制作mdb的MDB文件中
Set rs = conn.OpenSchema(adSchemaTables)
While Not rs.EOF
If rs!table_type = "TABLE" Then
conn.Execute ("select * into ["AccFullName"].["rs!table_name"]from ["rs!table_name"]")

推荐阅读


上一篇：科研用什么cpu，科研用什么编程语言

下一篇：联通手机到了国外无服务器，联通到国外无服务怎么办