DW中asp.net vb如何连接ACCESS数据库 怎样利用VB将EXCEL中的数据导入ACCESS

目录导航：

1. DW中asp.net vb如何连接ACCESS数据库
2. 怎样利用VB将EXCEL中的数据导入ACCESS
3. vb.net同时对两个ACCESS数据库进行增删改查
4. VB如何写自动搜索程序所在目录及其文件夹位置
5. VB如何调用并使用数据库
6. jpg如何存成mdb格式的文件格式

展开全部

两种方法：

一、

首先在web.config文件<appSettings>节点中加入如下代码：

<!--数据源-->

<add key="myds" value="Provider=Microsoft.Jet.OLEDB.4.0;Data source="/>

<!--数据库相对路径-->

<add key="myconn" value="App_Data\\VinikeData.mdb"/>

然后，写个类文件，调用上面的定义，代码如下：

\'定义一个连接字符串，难点就在这里，网上很多用到了Server.MapPath,但是还是不行，注意这里用到了Request.MapPath(相对asp来说，这是asp所没用的)

Public connstr As String = ConfigurationSettings.AppSettings("myds") + HttpContext.Current.Request.MapPath("~") + (ConfigurationSettings.AppSettings("myconn").Trim())

接下来就不用说了，相信经常写类的都知道，嘿嘿。。。

方法二、推荐使用

把数据库文件放在 App_Data目录下，然后用下面的连接字符串，就不用管路径问题了，.Net会自动替换成合适的路径。

这是Asp.net 2.0新增的功能,使用|DataDirectory|

Web.config文件中：

<add name="connstr" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\\db.mdb" providerName="System.Data.OleDb"/>

Option ExplicitDim data As New ADODB.ConnectionDim db As New ADODB.RecordsetDim xlsApp As Excel.ApplicationDim xlsBook As Excel.WorkbookDim xlsSheet As Excel.WorksheetPrivate Sub Command1_Click()On Error GoTo ErrHandlerCommonDialog1.DialogTitle = "Open files"CommonDialog1.Filter = "mdb files(*.mdb)|*.mdb"CommonDialog1.Flags = 4 '取消 “以只读方式打开” 复选框CommonDialog1.ShowOpenCommonDialog1.CancelError = TrueIf Len(CommonDialog1.FileName)

见下面的代码，自己换成真实的数据库及表即可

Imports System.Data

Imports System.IO

Imports System.Data.OleDb

Module Module1

Public cn1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS数据库1.mdb") '定义连接1---这里请更改为实际数据库路径及名称

Public cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS数据库2.mdb") '定义连接2---这里请更改为实际数据库路径及名称

Public DataBaseRST1 As Integer '用来返回数据库执行结果

Public DataBaseRST2 As Integer '用来返回数据库执行结果

Public Function DataModify(ByVal str_cmd1 As String, ByVal str_cmd2 As String) As Boolean '进行数据库修改操作函数

Dim cmdinsert1 As New OleDbCommand

Dim cmdinsert2 As New OleDbCommand

Try

cmdinsert1.CommandText = str_cmd1

cmdinsert2.CommandText = str_cmd2

cmdinsert1.Connection = cn1

cmdinsert2.Connection = cn2

If cn1.State = ConnectionState.Closed Then cn1.Open()

If cn2.State = ConnectionState.Closed Then cn2.Open()

DataBaseRST1 = cmdinsert1.ExecuteNonQuery() '用来返回执行的结果

DataBaseRST2 = cmdinsert2.ExecuteNonQuery() '用来返回执行的结果

cn1.Close()

cn2.Close()

Return True

Catch ex As Exception

MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

Return False

End Try

End Function

End Module

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

DataModify("insert into aa values ('1','2')", "insert into aa values ('1','2')") '调用方法

End Sub

End Class

VB中有一个App对象代表当前应用程序，App.Path属性是当前应用程序所在的路径 例如： String strDatabaseName = "mydb.mdb" String strFullPathName = App.Path & "\" & strDatabaseName 则strFullPathName就代表当前路径下的mydb.mdb文件

VB可将Sql结构化查询语句赋值Ado(ActiveX 数据对象)或ADO Data 控件，访问和操作数据库。

ADO (ActiveX 数据对象)，这项新的数据访问技术的特性包括：更简单的对象模型；与其它 Microsoft 和非 Microsoft 的技术更好的集成；为本地和远程数据数据提供的通用接口；可远程访问的和断开的记录集；用户可访问的数据绑定接口；以及层次结构的记录集。

ADO Data 控件， 这是一种新的、OLEDB 识别的数据源控件，其功能与内部的 Data 控件和 Remote Data 控件十分相似，通过这种方式允许用户用最少的代码来创建数据库应用程序。

Visual Basic 6.0 中，已经可以将任何 ADO/OLE DB 数据源绑定到任何 ADO/OLE DB 数据使用者上。在运行时，可以设置控件的 DataSource 属性来将控件动态地绑定到数据源。可以创建用作数据源和数据使用者的类，并且通过新的 BindingsCollection 对象将这些类绑定在一起。可以创建与 ADO 数据控件相似的、用作数据源的用户控件。还可以创建与 DataGrid 控件相似的、复杂绑定的用户控件。

以下是经ADO (ActiveX 数据对象)访问Access数据库的实例代码：

Dim cnn As New Connection Dim rs As New Recordset Dim sql As String Dim ARR cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\wdOld.mdb;Persist Security Info=False" sql = "select 故障名称 from guzhang_bm" rs.Open sql, cnn Combo1.Text = "故障名称" Do While Not rs.EOF Combo1.AddItem rs("故障名称") rs.MoveNext '打开表 Loop rs.Close cnn.Close

以下是使用ADO Data 控件访问Access数据库德实例代码：

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\wd.mdb;Persist Security Info=False" Adodc1.RecordSource = "select * from jishijilu" ' where shijian like'%8112%' And gyh_riqi like'%10%'" Adodc1.Refresh Set MSHFlexGrid1.DataSource = Adodc1 MSHFlexGrid1.Row = 1 MSHFlexGrid1.ColSel = MSHFlexGrid1.Cols - 1

要将jpg文件转换为mdb文件格式，您需要使用特定的软件或工具。一种常用的方法是使用数据库管理系统（DBMS）如Microsoft Access。

首先，您需要创建一个新的mdb数据库文件。

然后，您可以使用Access的导入功能将jpg文件导入到数据库中。

在导入过程中，您可以选择将jpg文件存储为二进制数据类型的字段。这样，您就可以将jpg文件存储为mdb文件格式，并在数据库中进行管理和访问。请注意，这只是一种方法，具体步骤可能因使用的软件或工具而有所不同。

回答如下：JPG是一种图像文件格式，而MDB是一种数据库文件格式，两者并不直接兼容，无法直接将JPG文件转换为MDB文件。JPG文件主要用于存储图像数据，而MDB文件主要用于存储数据库表格、查询和关系。如果您希望将JPG文件中的图像数据存储到MDB文件中，可以考虑以下方法：

1. 创建一个新的MDB数据库文件。

2. 在MDB数据库中创建一个新的表格，其中包含适当的字段来存储图像数据。可以使用OLE对象字段类型来存储图像数据。

3. 使用编程语言（如VB.NET、C#等）或数据库管理系统（如Microsoft Access）的工具，将JPG文件中的图像数据读取到内存中。

4. 将图像数据插入到MDB数据库的表格中，存储为图像字段类型。

5. 保存并关闭MDB数据库文件。

需要注意的是，这种方法只能将JPG文件中的图像数据存储到MDB文件中，并不能保留JPG文件中的其他元数据（如文件名、拍摄日期等）。如果您需要保留这些元数据，可以考虑使用其他文件格式，如PNG或TIFF，这些格式支持存储元数据。同样地，您仍然需要按照上述步骤将图像数据插入到MDB数据库文件中。