锐客网

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

vb.netmdb碎片的简单介绍( 二 )

IT技术Chatbot


(strCom,myConn)
'把Dataset绑定books数据表
myCommand.Fill(myDataSet,"person")
'关闭此数据连接
myConn.Close()
EndSub
'插入数据记录操作代码
PrivateSubbutton2_Click(ByValsenderAsObject,_
ByValeAsSystem.EventArgs)Handlesbutton2.Click
'判断所有字段是否添完，添完则执行，反之弹出提示
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 写入mdb数据库1、首先vb.netmdb碎片，vb.netmdb碎片你得做一个oledbconnection对象vb.netmdb碎片 ， 这个对象有个连接字符串vb.netmdb碎片的属性 ， vb.netmdb碎片你需要设置
2、做一个oledbcommand对象 ， 这个对象有个操作字符串（SQL语句）需要设置
3、打开oledbconnection对象
4、执行oledbcommand对象
5、关闭oledbconnection对象
程序结束 ， 希望对你有帮助
在vb.net中如何查询MDB数据库的数据以下是完整模块
Imports System.Data
Imports System.IO
Imports System.Data.OleDb
Module Module1
Public cn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="Application.StartupPath"\mdb数据库名字.mdb") '定义连接
Public DataBaseRST As Integer '用来返回数据库执行结果
Public Function DataModify(ByVal str As String) As Boolean '进行数据库修改操作
Dim cmdinsert As New OleDbCommand
Try
cmdinsert.CommandText = str
cmdinsert.Connection = cn
If cn.State = ConnectionState.Closed Then cn.Open()
DataBaseRST = cmdinsert.ExecuteNonQuery() '用来返回执行的结果
cn.Close()
Return True
Catch ex As Exception
MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function
Public Function Search(ByVal str As String, ByVal DGV As DataGridView) As Boolean '查询str---查询命令，DGV---DataGridView，用来显示数据的控件
Dim tb As New DataTable
Try
Dim ap As New OleDb.OleDbDataAdapter(str, cn)
ap.Fill(tb)
DGV.DataSource = tb
Return True
Catch ex As Exception
MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function
End Module
'以下是调用方法
DataModify(" insert into aa values ('1','2')")'-------这里是数据库更新操作
Search("select bb from aa",DataGridView1)'-----------这里是数据表查询操作
vb.netmdb碎片的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.netmdb碎片的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：下载大众点评，华为手机怎么下载大众点评

下一篇：手机大型单机游戏排行榜，手机大型单机游戏排行榜前十名2023