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