锐客网

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

vb。net制作mdb vbnet adodb

IT技术private

vb.net 写入mdb数据库1、首先，你得做一个oledbconnection对象，这个对象有个连接字符串的属性，你需要设置
2、做一个oledbcommand对象，这个对象有个操作字符串（SQL语句）需要设置
3、打开oledbconnection对象
4、执行oledbcommand对象
5、关闭oledbconnection对象
程序结束，希望对你有帮助
VB.NET如何生成ACCESS数据库？并生成表 。VB.NETvb 。net制作mdb我vb 。net制作mdb的需求就是先填写好表和表中字段vb 。net制作mdb的名称vb 。net制作mdb，然后点击一个按钮 ， 就在指定的路径生成一个ACCESS数据库 。而不是事先手动创建 。请知道的各位附上完整代码 ， 本人刚接触VB.NET ， 有些东西还不是很vb 。net制作mdb了解 。谢谢 。
用vb.net操作access数据库mportsSystem.Drawing
ImportsSystem.ComponentModel
ImportsSystem.Windows.Forms
ImportsSystem.Data.OleDb
ImportsSystem.Data
PublicClassForm1
InheritsForm
PrivatecomponentsAsSystem.ComponentModel.Container=Nothing
PrivateWithEventslastrecAsButton
PrivateWithEventsnextrecAsButton
PrivateWithEventspreviousrecAsButton
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
'清除在程序中使用过vb 。net制作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()
【vb。net制作mdb vbnet adodb】myConn.Open()
'通过OleDbDataAdapter对象得到一个数据集
DimmyCommandAsOleDbDataAdapter=NewOleDbDataAdapter
(strCom,myConn)
'把Dataset绑定books数据表
myCommand.Fill(myDataSet,"person")
'关闭此数据连接
myConn.Close()
EndSub
'插入数据记录操作代码
PrivateSubbutton2_Click(ByValsenderAsObject,_
ByValeAsSystem.EventArgs)Handlesbutton2.Click
'判断所有字段是否添完vb 。net制作mdb ， 添完则执行vb 。net制作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("必须填满所有字段值！","错误！")
EndIf
EndSub
怎样用VB.NET 做学生管理系统1vb 。net制作mdb：Accessvb 。net制作mdb，建立数据库vb 。net制作mdb ， 数据库命名为Database1.mdb 。
（注意：这里的后缀是MDB,如果Access是2007版本的vb 。net制作mdb，保存的时候要另存为2003版本的才行，因为，VB不直接支持07版的accdb后缀格式vb 。net制作mdb?。?
2：数据库建立后就进入了数据表界面 ， 可以输入数据了，输完以后CRRL S保存，输入表名，这里表名为test，ok，准备工作搞定 。
菜单中找到工程→部件→勾选 ，
Microsoft ADO Data Control 6.0
Microsoft Hierarchical Flexgrid Control 6.0
勾选后左侧工具栏里就多了两个控件即 ADODC控件和MSHFlexGrid控件 。
选择 ADODC控件和MSHFlexGrid控件 ， 放在窗体的合适位置
设置ADODC控件的属性：
右键窗体内ADODC1控件
1：ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider 点击下一步→选择之前准备好的数据库→点击测试连接，显示测试成功则ok，确定 。
2：ADODC属性页→记录源→命令类型选择2-adcmdtable，表或存储过程名称选择之前建立的数据表test，点击确定，ADODC属性设置完成 。
设置MSHFlexGrid控件的属性：
VB右侧属性表里，找到datasource ， 选择adodc1
就完事了
般电话机对外联络，以免为了穿透墙壁天花板等障碍而浪费电 。同样在室外
关于vb 。net制作mdb和vbnet adodb的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：如何让app的服务器正常运行？ app的服务器怎么运行

    下一篇：张纪中夫妇直播录屏，张纪中的视频