VB+sql2000开发的局域网版软件能否直接用到互连网上？（在线等待）

Question

我用的是VB+sql2000,请高手给个思路VB+sql2000开发的局域网版软件能否直接用到互连网上？
局域网版的可以正常使用，我象把他用到互连网上，不知道是否可以直接使用？，如果不能该如和解决，请高手指点

Answer 1

当然可以,只需要把VB中连接到数据的字符串中数据库名字改成IP地址就可以了

Answer 2

基本上不可行。
因为要考虑到你的服务器ip是不是公网地址，如果不是，客户端怎么连接你的服务器。
服务器和客户端之间可能存在若干层防火墙，有没有屏蔽sqlserver端口。
所以多少总是要修改的。

Answer 3

若干层防火墙，有没有屏蔽sqlserver端口
该如何修改

Answer 4

恐怕没有那么简单吧，只是更改一个ＩＰ？？？
我有一个关于连接到网络ＡＣＣＥＳＳ数据的示例，发代码给大家看一下吧！
Option ExplicitPublic WithEvents RDSO As RDS.DataControlPrivate Sub CmdOpen_Click()
    On Error Resume Next
    Dim driver As String, path As String
    CmdOpen.Enabled = False
    driver = "driver={Microsoft Access Driver (*.mdb)};dbq="
    path = dbpath.Text
    RDSO.server = server.Text
    RDSO.Connect = driver & path
    RDSO.SQL = sqlstr
    
    RDSO.ExecuteOptions = adcExecSync
    RDSO.FetchOptions = adcFetchBackground
    RDSO.Refresh
    If Err <> 0 Then
        MsgBox "打开数据库时发生错误：" & Chr(10) & Chr(13) & Err.Description, vbCritical + vbOKOnly, "打开数据库错误！"
    End If
End SubPrivate Sub Command1_Click()
    On Error Resume Next
    RDSO.CancelUpdate
    If Err <> 0 Then
        MsgBox "取消更新时发生错误：", vbOKOnly + vbCritical
    End If
End SubPrivate Sub Command2_Click()
     On Error Resume Next
    RDSO.SubmitChanges
    If Err <> 0 Then
        MsgBox "提交更新数据时发生错误：" & Chr(10) & Chr(13) & Err.Description, vbCritical + vbOKOnly, "提交数据错误！"
    Else
        MsgBox "提交数据完成！", vbExclamation + vbOKOnly, "提交数据"
    End If
End SubPrivate Sub Command3_Click()
    RDSO.Cancel
End SubPrivate Sub Form_Load()
    On Error Resume Next
    Set RDSO = New RDS.DataControl
    server.AddItem "http://127.0.0.1" '本机服务器地址
    server.ListIndex = 0
    dbpath.AddItem App.path + "\VBRds.mdb"  '数据库的绝对路径
    dbpath.ListIndex = 0
    sqlstr.Text = "Select * From ActiveX"
    
End SubPrivate Sub RDSO_onreadystatechange()
    On Error Resume Next
    If RDSO.ReadyState = adcReadyStateComplete Or _
        RDSO.ReadyState = adcReadyStateInteractive Then
        Set Adodc1.Recordset = RDSO.Recordset
        Adodc1.Recordset.MoveLast
    End If
    CmdOpen.Enabled = TrueEnd Sub

Answer 5

http://community.csdn.net/Expert/topic/4615/4615454.xml?temp=.1460382
这个帖子上问题和你的差不多,你可以按照回复做

Answer 6

rayxu(有心就成) ( ):你的这个代码可以用吗？
具体做的时候应该注意什么啊

Answer 7

lllzcs(水) ( )上我前面哪个帖子上去看看。应该能解决你的问题．其实就是改下连接字符串就行．要不行的话也是你sql　设置的问题．