VB Access資料庫公網連接-有解無憂

求教，宣告幾點。業務愛好外加可能的作業需要，最開始我接觸的是Excel中的VBa語言，
之前用VB實作讀者內網指定電腦中的Access庫檔案
怎么解決在公網上的訪問？在內網訪問修改還比較簡單，公網上就是倆眼一黑懵逼了。
之前也查過一些資料庫系統的東西，服務器什么的都有點懵。我一直都是看案例或針對一個一個問題解決問題。有時候最可怕的是你不知道是啥問題

uj5u.com熱心網友回復：

Access公網不行，除非檔案共享什么的，還是想想別的辦法吧，比如內網設定臺主機，把各個access資料匯總到一個sql 服務器上來，然后對外服務。再或者用vpn的辦法，搞成內網。不過這速度怕是不讓人滿意的。

uj5u.com熱心網友回復：

access就一本地資料庫，如果想通過網路訪問資料庫，兩種辦法：
1、換SQL Server、Oracle、MySQL等網路資料庫
2、自己做一個網路接入服務程式放在公網上，這個服務后面接著access資料庫，并開放介面。你的客戶端通過這個服務程式發送指令實作對access資料的增刪改查。

uj5u.com熱心網友回復：

如果必須用Access資料庫，以下的方法可以試試，不過涉及知識也相對多些。

1.首先得有一個固定的IP（或域名）；
2.Access資料庫所在的電腦上，寫一個服務端程式，服務端負責決議指令，和資料回傳；
3.再寫個客戶端，通過IP（或域名）訪問服務端，客戶端負責發送指令，和接收資料并顯示；
4.如果認為資料傳輸不安全，還得對傳輸加密。

適合小資料應用。

uj5u.com熱心網友回復：

樓主是否會在wince下連接mssql資料庫

uj5u.com熱心網友回復：

參考 1 樓笨狗先飛的回復:

Access公網不行，除非檔案共享什么的，還是想想別的辦法吧，比如內網設定臺主機，把各個access資料匯總到一個sql 服務器上來，然后對外服務。再或者用vpn的辦法，搞成內網。不過這速度怕是不讓人滿意的。

sql服務器這玩意我一次都沒接觸過

uj5u.com熱心網友回復：

參考 4 樓 zhstar的回復:

樓主是否會在wince下連接mssql資料庫

迷茫

uj5u.com熱心網友回復：

參考 5 樓 qq_34304893 的回復:

Quote: 參考 1 樓笨狗先飛的回復:
Access公網不行，除非檔案共享什么的，還是想想別的辦法吧，比如內網設定臺主機，把各個access資料匯總到一個sql 服務器上來，然后對外服務。再或者用vpn的辦法，搞成內網。不過這速度怕是不讓人滿意的。

sql服務器這玩意我一次都沒接觸過

網上教程很多，看著裝就可以了。
VB連SQL和Access就打開資料庫時用的連接字串不同，其他資料庫用法的幾乎一模一樣。
有個一兩天時間學一下就差不多了

uj5u.com熱心網友回復：

參考 7 樓笨狗先飛的回復:

Quote: 參考 5 樓 qq_34304893 的回復:

Quote: 參考 1 樓笨狗先飛的回復:
Access公網不行，除非檔案共享什么的，還是想想別的辦法吧，比如內網設定臺主機，把各個access資料匯總到一個sql 服務器上來，然后對外服務。再或者用vpn的辦法，搞成內網。不過這速度怕是不讓人滿意的。

sql服務器這玩意我一次都沒接觸過

網上教程很多，看著裝就可以了。
VB連SQL和Access就打開資料庫時用的連接字串不同，其他資料庫用法的幾乎一模一樣。
有個一兩天時間學一下就差不多了

這么神奇？推薦sql server哪個版本

uj5u.com熱心網友回復：

參考 5 樓 qq_34304893 的回復:

Quote: 參考 1 樓笨狗先飛的回復:
Access公網不行，除非檔案共享什么的，還是想想別的辦法吧，比如內網設定臺主機，把各個access資料匯總到一個sql 服務器上來，然后對外服務。再或者用vpn的辦法，搞成內網。不過這速度怕是不讓人滿意的。

sql服務器這玩意我一次都沒接觸過

人生總有第一次，研究一下唄，又沒啥損失。

uj5u.com熱心網友回復：

這個問題在我N年前接觸過，講講我經驗。1.采用WEB模式，與ASP配合可以解決遠程訪問，我很長一段時間就是這么干的。2.換SQL SERVER2000+資料庫，加上服務器。3.用VPN來解決

uj5u.com熱心網友回復：

參考 8 樓 qq_34304893 的回復:

Quote: 參考 7 樓笨狗先飛的回復:
Quote: 參考 5 樓 qq_34304893 的回復:

Quote: 參考 1 樓笨狗先飛的回復:
Access公網不行，除非檔案共享什么的，還是想想別的辦法吧，比如內網設定臺主機，把各個access資料匯總到一個sql 服務器上來，然后對外服務。再或者用vpn的辦法，搞成內網。不過這速度怕是不讓人滿意的。

sql服務器這玩意我一次都沒接觸過

網上教程很多，看著裝就可以了。
VB連SQL和Access就打開資料庫時用的連接字串不同，其他資料庫用法的幾乎一模一樣。
有個一兩天時間學一下就差不多了

這么神奇？推薦sql server哪個版本

VB6配合最好的應該是SQL Server 2000,不過這種資料庫和新作業系統間的兼容性可能不太好了,而且都是老系統,漏洞比較多,
SQL Server 2005 和 2008,應該還合適,再高的版本等熟悉之后再試試.

uj5u.com熱心網友回復：

我記得有一個收費的netAdo插件可以解決這個問題。時間太久了,名都忘了

uj5u.com熱心網友回復：

參考 12 樓阿清理財保險 POS 的回復:

我記得有一個收費的netAdo插件可以解決這個問題。時間太久了,名都忘了

VB到了現在這個階段，如果你還想舒舒服服的用，還想一切盡在掌握，就盡量不要用第三方控制元件和庫，至少的不要用不開源的東西。否則等你入坑才發現有坑的時候哭都來不及。

uj5u.com熱心網友回復：

參考 13 樓脆皮大雪糕的回復：

Quote: 參考 12 樓阿清理財保險 POS 的回復:

我記得有一個收費的netAdo插件可以解決這個問題。時間太久了,名都忘了

VB到了現在這個階段，如果你還想舒舒服服的用，還想一切盡在掌握，就盡量不要用第三方控制元件和庫，至少的不要用不開源的東西。否則等你入坑才發現有坑的時候哭都來不及。

你說的對。不過時間成本也是成本，對資本家來說能用錢擺平的都不算事兒。

uj5u.com熱心網友回復：

參考 14 樓阿清理財保險 POS 的回復:

Quote: 參考 13 樓脆皮大雪糕的回復：
Quote: 參考 12 樓阿清理財保險 POS 的回復:

我記得有一個收費的netAdo插件可以解決這個問題。時間太久了,名都忘了

VB到了現在這個階段，如果你還想舒舒服服的用，還想一切盡在掌握，就盡量不要用第三方控制元件和庫，至少的不要用不開源的東西。否則等你入坑才發現有坑的時候哭都來不及。
你說的對。不過時間成本也是成本，對資本家來說能用錢擺平的都不算事兒。

入坑以后填坑的時間成本可能更高

uj5u.com熱心網友回復：

參考 15 樓脆皮大雪糕的回復:

Quote: 參考 14 樓阿清理財保險 POS 的回復:

Quote: 參考 13 樓脆皮大雪糕的回復：
Quote: 參考 12 樓阿清理財保險 POS 的回復:

我記得有一個收費的netAdo插件可以解決這個問題。時間太久了,名都忘了

VB到了現在這個階段，如果你還想舒舒服服的用，還想一切盡在掌握，就盡量不要用第三方控制元件和庫，至少的不要用不開源的東西。否則等你入坑才發現有坑的時候哭都來不及。
你說的對。不過時間成本也是成本，對資本家來說能用錢擺平的都不算事兒。

入坑以后填坑的時間成本可能更高

而且，現在VB的那些收費控制元件都不再維護了吧，有問題叫天天不應叫地地不靈，還沒有源代碼，想努努力都不行。換控制元件你要把所有呼叫的地方全都改一遍。這些都是成本。

uj5u.com熱心網友回復：

想簡單可以 ado 與 asp 直接連接。
服務端：xxx.asp

<%

Dim conn:set conn=Server.CreateObject("ADODB.connection")

Dim rs:Set rs = Server.CreateObject("ADODB.Recordset")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=路徑\xxx.mdb;"

rs.open "select 欄位一,欄位二 from [表名] ",conn,1,1

rs.save response,1

rs.close:set rs=nothing

conn.close:set conn=Nothing

%>

客戶端：

Dim rs As New ADODB.Recordset

rs.Open "http://www.xxxx.com/xxx.asp"

Do While Not rs.EOF

'讀取資料。。。。

rs.MoveNext

Loop

If rs.State = 1 Then rs.Close

Set rs = Nothing

uj5u.com熱心網友回復：

參考 17 樓 djmake 的回復:

想簡單可以 ado 與 asp 直接連接。
服務端：xxx.asp

<%

Dim conn:set conn=Server.CreateObject("ADODB.connection")

Dim rs:Set rs = Server.CreateObject("ADODB.Recordset")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=路徑\xxx.mdb;"

rs.open "select 欄位一,欄位二 from [表名] ",conn,1,1

rs.save response,1

rs.close:set rs=nothing

conn.close:set conn=Nothing

%>

客戶端：

Dim rs As New ADODB.Recordset

rs.Open "http://www.xxxx.com/xxx.asp"

Do While Not rs.EOF

'讀取資料。。。。

rs.MoveNext

Loop

If rs.State = 1 Then rs.Close

Set rs = Nothing

我最想用的是像訪問共享檔案夾一樣訪問。
這個平臺怎么采納不知道--

uj5u.com熱心網友回復：

參考 18 樓 qq_34304893 的回復:

我最想用的是像訪問共享檔案夾一樣訪問。
這個平臺怎么采納不知道--

千萬不要，除了共享檔案夾曝露到公網安全性可慮
另外，因為公網連接速度通常比較慢，如果 mdb 檔大點，會有很明顯的延遲現象，增加寫入資料庫時的風險，增加資料庫毀損的風險

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/21775.html

標籤：網絡編程

上一篇：小白遇到安裝問題

下一篇：求一個vbs腳本。