求VB.NET2010连接MDB数据库后，添加、修改和删除等写法示例

引用 Microsoft ActiveX Data Objects 2.8 Library

或者加入microsoft ado data control

定义数据库连接

Dim Cnn As New ADODB.Connection

定义 *** 作记录

Dim Res As New ADODB.Recordset

开始使用

If Res.State = 1 Then Res.Close

Res.CursorLocation = adUseClient

Res.Open "SELECT * From 发票表", Cnn, adOpenDynamic, adLockReadOnly

删除用res.Delete

添加用res.AddNew

res.Fields("序号") = Trim(Res.Fields("序号"))

...

res.Update

更新用Res.Update "序号", 111

列：

'写入产品信息

Sub WriteFP()

'On Error Resume Next

Dim SyBaseRes As New ADODB.Recordset

PB.value = 0

Res.Open "SELECT Count(*) From ICSaleEntry INNER JOIN t_Item ON ICSaleEntry.FItemID = t_Item.FItemID INNER JOIN t_MeasureUnit ON ICSaleEntry.FUnitID = t_MeasureUnit.FMeasureUnitID", SQLServer, adOpenDynamic, adLockReadOnly

Text2.Text = "当前共 " &Val(Res.Fields(0)) &"条数据"

PB.Max = Val(Res.Fields(0))

If Res.State = 1 Then Res.Close

Res.Open "SELECT ICSaleEntry.FDetailID AS 序号,ICSaleEntry.FInterID AS 物料编号, t_Item.FName AS 产品名称,ICSaleEntry.FAuxPrice AS 单价, ICSaleEntry.FAuxQty AS 数量,ICSaleEntry.FAmount AS 原币, ICSaleEntry.FStdAmount AS 本币,t_MeasureUnit.FName AS 单位 FROM ICSaleEntry INNER JOIN t_Item ON ICSaleEntry.FItemID = t_Item.FItemID INNER JOIN t_MeasureUnit ON ICSaleEntry.FUnitID = t_MeasureUnit.FMeasureUnitID", SQLServer, adOpenDynamic, adLockReadOnly

Do While Not Res.EOF

If SyBaseRes.State = 1 Then SyBaseRes.Close

SyBaseRes.Open "select * from 物料表 where 序号='" &Res.Fields("序号") &"'", Cnn, adOpenDynamic, adLockOptimistic

If SyBaseRes.EOF Then

Text2.Text = Text2.Text + vbCrLf + "正在添加: " &Trim(Res.Fields("序号"))

SyBaseRes.AddNew

SyBaseRes.Fields("序号") = Trim(Res.Fields("序号"))

SyBaseRes.Fields("产品编号") = Trim(Res.Fields("物料编号"))

SyBaseRes.Fields("产品名称") = Trim(Res.Fields("产品名称"))

SyBaseRes.Fields("单价") = Trim(Res.Fields("单价"))

SyBaseRes.Fields("数量") = Trim(Res.Fields("数量"))

SyBaseRes.Fields("原币") = Trim(Res.Fields("原币"))

SyBaseRes.Fields("本币") = Trim(Res.Fields("本币"))

SyBaseRes.Fields("单位") = Trim(Res.Fields("单位"))

SyBaseRes.Fields("数据库名") = Trim(Text1.Text)

SyBaseRes.Update

Else

Text2.Text = Text2.Text + vbCrLf + "正在更新: " &Trim(Res.Fields("序号"))

SyBaseRes.Update "序号", Trim(Res.Fields("序号"))

SyBaseRes.Update "产品编号", Trim(Res.Fields("物料编号"))

SyBaseRes.Update "产品名称", Trim(Res.Fields("产品名称"))

SyBaseRes.Update "单价", Trim(Res.Fields("单价"))

SyBaseRes.Update "数量", Trim(Res.Fields("数量"))

SyBaseRes.Update "原币", Trim(Res.Fields("原币"))

SyBaseRes.Update "本币", Trim(Res.Fields("本币"))

SyBaseRes.Update "单位", Trim(Res.Fields("单位"))

SyBaseRes.Update "数据库名", Trim(Text1.Text)

End If

PB.value = PB.value + 1

Res.MoveNext

DoEvents

Loop

If SyBaseRes.State = 1 Then SyBaseRes.Close

Set SyBaseRes = Nothing

End Sub

网络希望不要用ACCESS用ASA（就是sybase那个太强了）

一、新建一个"数据工程"

二、确定你的数据库是否存在。

三、以下代码

Private Sub Command1_Click()

Dim conn As New ADODB.Connection

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=D:\My Documents\数据检索二\mydate.mdbPersist Security Info=False"

MsgBox "打开成功!"

conn.Close

End Sub

1.首先在控件箱中添加“ADODC”和“DBGRID”2个控件.方法：右键点击控件箱，在d出的菜单中左键单击“部件”，在部件选项卡中选择“Microsoft ADO Date Control 6.0(OLEDB)”和“Microsoft DataGrid Control 6.0(OLEDB)”复选框，然后“确定”。这样ADODC 和DATAGRID 控件就添加在控件箱中了。 2.然后在窗体上放置放置一个adodc控件，单击控件，在属性窗口点击“connectionstring”属性右侧的带…的按钮，选择“使用字符串（C）”选项，点击“生成”按钮，在d出的“数据库链接属性”的“提供程序”选项卡中选择“Microsoft Jet 4.0 OLE DB Provider”，点击“下一步”，在“链接”选项卡中选择你的数据库，单击“测试链接”按钮，成功后单击“确定”按钮，则创建ADO Data控件的链接就成功了。在ADODC属性窗口点击“recordsource”右侧带…的按钮，选择“命令类型”为“2-adcmdtable”，设置一个表或存储过程名位记录源。在“表或存储过程名称”的下拉列表中选择你要显示的表，单击确定按钮。ADODC控件的属性设置完成。 3.在窗体上放置一个datagrid控件，单击控件，在属性窗口点击datasource，在右侧下拉菜单中选择adodc1，如果你的窗体上有多个数据源，这里下拉菜单中就会有多个选择。 4.右键单击datagrid控件，然后选择“检索字段（retrieve fields）命令，就会用数据源的记录集自动填充该控件。单击“属性”。使用“属性页”选项卡设置该控件的适当属性。 5.F5，这里就可以查看和修改了。 还有另外一种办法 在vb菜单栏点击“外接程序”，选择“可视化数据管理器”，在d出的“可视化数据管理器”窗口visadata中选择“文件”“打开数据库”选择“microsoft access”命令打开你的数据库。你的数据库的大部分信息就会在新d出的“数据库窗口”中显示了。窗口中有什么功能，自己去摸索吧，我还没完全搞清楚，只能给你讲这么多了。 打字真累啊！！

---