使用VB.NET应用程序连接MS Access数据库（.mdb） [英] Connect MS Access Database (.mdb) with VB.NET Application

问题描述

我设计了一个带ms访问数据库的vb.net应用程序。



我使用以下连接字符串连接：



Provider = microsoft.Jet.oledb.4.0;数据源= D：\ mydata.mdb



我想将此应用程序分发给局域网（网络）中的其他用户



但应该共享公共（集中）数据库。



我该怎么办？



谢谢...

解决方案

 Imports System.Data.Oledb 
 
 
 Dim con  As  New OledbConnection（  Provider = microsoft.Jet.oledb.4.0DataSource = D：\ mydata.mdb;）
 
 Dim cmd  As 新OledbCommand 
 
 公共 var1  As  String 
 
 公共 Sub New（）
 con。打开（）
 
 cmd.Connection = con 
 cmd.CommandText =   SELECT * FROM table1 
 
 结束 Sub 
 
 公共 Sub created（）
 cmd .CommandText =   INSERT INTO table1（Neyms）VALUES（' + var1 +  '） 
 cmd.ExecuteNonQuery（）
 
 结束 Sub 

从表格中抓取数据并将其发布到ListView 
 Dim Table_ As String =Table1
 Dim query As String =SELECT * FROM& Table_ 
 Dim MDBConnString_ As String =Provider = Microsoft.Jet.OLEDB.4.0; Data Source = TestDatabase.mdb; 
 Dim ds As New DataSet 
 Dim cnn As OleDbConnection = New OleDbConnection（MDBConnString_）
 cnn.Open（）
 Dim cmd As New OleDbCommand（query，cnn）
 Dim da As New OleDbDataAdapter（cmd）
 da.Fill（ds，Table_）
 cnn.Close（）
 Dim t1 As DataTable = ds.Tables（Table_）
 Dim row As DataRow 
 Dim Item（2）As String 
 For each rows in t1.Rows 
 Item（0）= row（0）
 Item（1）= row（1） 
 Dim NextListItem As New ListViewItem（Item）
 ListView1.Items.Add（NextListItem）
 Next 

如果你是尝试将中央数据库用于应用程序的多个实例，然后使用Access是一个非常糟糕的方法。

正确的解决方案是在托管数据库的计算机上使用SQL Server实例。如果您没有SQL Server许可，您可以使用不同的提供程序，如MySQL。



如果您确实需要从另一台机器连接到访问db文件，你不会使用IP地址连接，而是共享路径：即。 \\YourMachineName\AccessFolderShare\YourFile.mdb。

Hi,
I have designed one vb.net application with ms access database.

I use following connectionstring to Connect :

Provider=microsoft.Jet.oledb.4.0;Data Source=D:\mydata.mdb

I want to distribute this application to other users in LAN (Network)

but should share common (centralized) database.

How should I proceed ?

Thanks...

解决方案

Imports System.Data.Oledb


    Dim con As New OledbConnection("Provider=microsoft.Jet.oledb.4.0DataSource=D:\mydata.mdb;")

    Dim cmd As New OledbCommand

    Public var1 As String

    Public Sub New()
        con.Open()

        cmd.Connection = con
        cmd.CommandText = "SELECT * FROM table1"

    End Sub

    Public Sub creates()
        cmd.CommandText = "INSERT INTO table1(Neyms) VALUES('" + var1 + "')"
        cmd.ExecuteNonQuery()

    End Sub

Grabs data from a table and posts it into a ListView
Dim Table_ As String = "Table1"
Dim query As String = "SELECT * FROM " & Table_
Dim MDBConnString_ As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=TestDatabase.mdb;"
Dim ds As New DataSet
Dim cnn As OleDbConnection = New OleDbConnection(MDBConnString_)
cnn.Open()
Dim cmd As New OleDbCommand(query, cnn)
Dim da As New OleDbDataAdapter(cmd)
da.Fill(ds, Table_)
cnn.Close()
Dim t1 As DataTable = ds.Tables(Table_)
Dim row As DataRow
Dim Item(2) As String
For Each row In t1.Rows
    Item(0) = row(0)
    Item(1) = row(1)
    Dim NextListItem As New ListViewItem(Item)
    ListView1.Items.Add(NextListItem)
Next

If you are trying to use a central database for multiple instances of the application, then using Access is a really bad way to go.
The correct solution would be to use a SQL Server instance on the machine hosting the database. If you don't have licensing for SQL Server you could always use a different provider like MySQL.

If you really need to connect to the access db file from another machine, you would not be connection using an IP address, but rather a share path: ie. \\YourMachineName\AccessFolderShare\YourFile.mdb.

这篇关于使用VB.NET应用程序连接MS Access数据库（.mdb）的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！