1、你那個外網地址14.118.27.4我能PING通.
2、你SQL資料庫放在外網空間里了嗎？
3、外網空間是花生殼自己虛擬的嗎？這個不知道有沒有與資料庫相關的設置，反正在SP處租用空間的時候是有資料庫功能和非資料庫功能區別的。
② vb連接遠程sql資料庫
VB連Oracle1、首先你可以新建一個ini文件（如程序名.ini文件）2、在vb中添加API函數：Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long3、在vb中添加要載入ini文件的代碼：Sub LoadInitial()
Dim ret As Integer
Dim retstr As String * 256
On Error GoTo LoadInitial SysIniFile = Command$
If SysIniFile = "" Then
SysIniFile = App.Path & "\" & App.EXEName & ".ini"
End If
ret = GetPrivateProfileString("SYS INI", "UID", "", retstr, 256, SysIniFile)
If ret <> 0 Then
gUid = Left$(retstr, ret)
End If
ret = GetPrivateProfileString("SYS INI", "PASSWD", "", retstr, 256, SysIniFile)
If ret <> 0 Then
gPasswd = Left$(retstr, ret)
End If
ret = GetPrivateProfileString("SYS INI", "DBLINK", "", retstr, 256, SysIniFile)
If ret <> 0 Then
gDsn = Left$(retstr, ret)
End If
Exit Sub
LoadInitial:
MsgBox "LoadInitial: " & Error
Resume
End Sub
4、添加打開資料庫的vb代碼：Public Sub DbOpen()
Dim strconn As String
On Error GoTo Errorhandler:
strconn = "DATA SOURCE=" & gDsn
Set cnAdo = New ADODB.Connection
cnAdo.Provider = "MSDAORA"
With cnAdo
.CursorLocation = adUseClient
.CommandTimeout = 10
.ConnectionString = strconn
.Open strconn, gUid, gPasswd
End With
Exit Sub
Errorhandler:
MsgBox "Database connect Error:" & Err.Description
End Sub
③ vb遠程鏈接訪問sql資料庫
這個問題是這樣的，用戶許可權不夠,密碼可能不同。。。確認資料庫混合登錄模式的情況下，
伺服器上設一個USERS用戶，加上密碼，在客戶機這邊也加一個相同名字的，也加上相同的密碼
這樣就可以用此用戶登錄了。
當然您也可以用許可權更大的比如administrator。一般來說，USERS用戶沒有其它許可權，相對電腦在網路上要安全，又能訪問SQL
這是最簡單的處理方式。
xp 用戶加USERS用戶，要在控制面板，管理工具，電腦管理-用戶里邊加。
④ 幫幫忙,給發一個vb連接並操作遠程sql資料庫的代碼
定義一個資料庫連接
Dim
con
As
New
SqlConnection("workstation
id=計算機名;packet
size=4096;user
id=sa;data
source=.;persist
security
info=False;initial
catalog=資料庫名")
對資料庫插入
Dim
incom
As
New
SqlCommand("insert
into
表名values(@id,@name,@password,@depart,@class)",
con)
incom.Parameters.Add("@id",
Me.idtb.Text)
incom.Parameters.Add("@name",
Me.nametb.Text)
incom.Parameters.Add("@password",
Me.passwordtb.Text)
incom.Parameters.Add("@depart",
Me.departtb.Text)
incom.Parameters.Add("@class",
Me.classtb.Text)
con.Open()
incom.ExecuteNonQuery()
con.Close()
MsgBox("insert
good")
Me.DataGrid1.Refresh()
刪除資料庫項
Dim
deleteEMP
As
SqlClient.SqlCommand
=
New
SqlClient.SqlCommand("delete
from
表名
where
列名
=
'"
&
checkcb.Text
&
"'",
conn)
result
=
deleteEMP.ExecuteNonQuery()
conn.Close()
Me.DataGrid1.Refresh()
MsgBox("delete
good")
對資料庫更新
Dim
upcom
As
New
SqlCommand("update
表明set
Stu_name=@name,Stu_password=@password,Stu_depart=@depart,Stu_class=@class
where
Stu_id=@id",
con)
upcom.Parameters.Add("@id",
Me.idtb.Text)
upcom.Parameters.Add("@name",
Me.nametb.Text)
upcom.Parameters.Add("@password",
Me.passwordtb.Text)
upcom.Parameters.Add("@depart",
Me.departtb.Text)
upcom.Parameters.Add("@class",
Me.classtb.Text)
con.Open()
upcom.ExecuteNonQuery()
con.Close()
MsgBox("update
good")
⑤ VB怎麼連接 SQL 資料庫
一個簡單的方法:
首先,建立程序公共模塊輸入以下代碼:
Public conn As New ADODB.Connection
'全局變數 rst 指針
Public rst As New ADODB.Recordset
'全局調用函數 打開資料庫
Public Function openconn()
conn.ConnectionString = "連接信息"
'此連接信息最簡單的生成辦法:
'在任意窗口下建立一新ADODC控制項
'選擇控制項屬性,通用頁,使用連接字元串,生成(U)
'利用該向導生成出字元串,然後將該字元串復制到"連接信息"中即可
conn.Open
End Function
'全局調用函數 關閉資料庫
Public Function closeconn()
If conn.State = 1 Then
conn.Close
Set conn = Nothing
End If
End Function
然後在窗體文件中可以使用的函數:
打開資料庫:openconn
注意:此函數為自定義函數,無參數,定義在公共模塊中!
建立數據表連接:Set rst = conn.Execute("select * from 數據表名")
如做登陸頁可以這樣判斷用戶名密碼:
Text1.Text = RTrim(rst.Fields("id")) And Text2.Text = RTrim(rst.Fields("password"))
注:其中Text1.Text為輸入用戶名TextBOX Text2.Text為輸入密碼TextBOX
數據表中 id 為保存用戶名 password 為保存密碼!此方法為非加密方法!
關閉資料庫函數:
closeconn
Set rst = Nothing
注:此兩行,必須在打開資料庫的情況下使用!並且每打開一次資料庫後必須先使用此兩句將資料庫關閉後才可打開另一資料庫表文件!!!!!否則程序報錯終止!
添加新數據函數
rst.AddNew
rst("欄位名1") = Text1.Text
rst("欄位名2") = Text2.Text
rst.Update
刪除數據函數
rst.Delete
注:使用此函數前,必須保證資料庫指針函數rst指向需刪除數據,移動rst指針可以使用函數:rst.MoveNext或rst.MoveLast
更新數據函數
rst.Open "update 數據表名 set 欄位1='" + Text1.Text + "',欄位2='" + Text2.Text + "' where id='" + Text3.Text + "'", conn, 1, 3
注,其中 where id = 為更新特定數據表的查找!
如果熟悉SQL語句,還可編寫出其他方式的查找,這里就不多做介紹了!
⑥ VB 用ADODB 遠程連接SQL2005 資料庫
在1中選擇計算機A的名稱；
在2中選擇windowsNT集成安全設置登陸；
在3中選擇資料庫名稱posgf；
點測試連接，彈出測試OK，點確定就行了
⑦ vb如何連接上遠程SQL資料庫
不知道你為什麼要用ADOC來配置...直接用VB代碼就OK了。
公共模塊：
Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset對象
Dim ConnStr As String
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set Conn = New ADODB.Connection
'On Error GoTo MyErr:
ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=登錄資料庫用戶名(默認為sa);Password=登錄資料庫密碼;Initial Catalog=資料庫名;Data Source=伺服器名(IP地址)" '這是連接SQL資料庫的語句
Conn.Open ConnStr
rs.CursorLocation = adUseClient
rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic
End Function
調用：
SQL = "SELECT * FROM 用戶表 WHERE 用戶名='" & Combo1.Text & "' AND 密碼='" & Text1.Text & "' "
Set rs = Selectsql(SQL)
⑧ 怎麼通過VB訪問SQL Server資料庫
要連接SQL資料庫有兩種方法用ADODC或ADO.
方法一: （ADODC)
首先須引用Projects-Components-Microsoft ADO Data Controls 6.0 (OLEDB).
之後在表單設置ADODC控制項。然後Form_Load()輸入以下代碼：
Private Sub Form_Load()
ADODC1.ConnectionString = "Provider=SQLOLEDB;Password=密碼;Persist Security Info=False;User ID=用戶名;Initial Catalog=資料庫名;Data Source=伺服器名"
ADODC1.CommandType = adCmdText
ADODC1.RecordSource = "select * from 表格名稱"
ADODC1.Refresh
End Sub
方法二: (ADO)
'首先須引用Projects-References-Microsoft Active X Data Objects 2.0 Library.
'*注意以下兩段須寫在程式最上面（Gerenal一般）中。
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String
'然後在Form_Load()輸入以下代碼：
Private Sub Form_Load()
cn.ConnectionString = "Provider=SQLOLEDB;Password=密碼;Persist Security Info=False;User ID=用戶名;Initial Catalog=資料庫名;Data Source=伺服器名"
cn.Open
If rs.State = adStateOpen Then rs.Close
rs.CursorLocation = adUseClient
SQL = "select * from 表格名"
rs.Open Trim$(SQL), cn, adOpenKeyset, adLockPessimistic
End Sub
⑨ vb 讀取遠程ACC或者SQL資料庫: 表:ABC 欄位1和表段2中的數據，到TEXT1和TEXT2中
無法遠程連接到你的資料庫，汗。
代碼如下，供參考：
Dim Conn1 As ADODB.Connection
Dim rstP As ADODB.Recordset
Dim strCnn As String
Private Sub Command1_Click()
Set Conn1 = New ADODB.Connection
strCnn = "{SQL Server};Server=80.12.15.265;Data Source=XXXX;" & _
"uid=777;pwd=999;Database=hao123"
Conn1.Open strCnn
Set rstP = New ADODB.Recordset
rstP.Open "ABC", Conn1, 1, 3
Text1.Text = rstP.Fields(0)
Text2.Text = rstP.Fields(1)
rstP.Close
Set rstP = Nothing
End Sub