十分奇怪的问题!看看谁能解决!望大家帮忙!

Question

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=asp;Data Source=wuhao-qs76vttmz"
上面的代码是建立数据源的,其中最后一个data source字段所表示的是本地计算机的机器名.如果我要打包的话,怎样才能动态寻找这个机器名呢

Answer 1

让它是一个变量，提取用户的计算机名称，或者让用户输入。winsock.LocalHostName 是当前计算机的名字，winsock 是vb控件。

Answer 2

Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
    rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
        While Not rs.EOF
            txtID.Text = txtID.Text & rs!ID & vbcrlf
            Doevents
            
            rs.MoveNext
        Wend
End SubPrivate Sub Form_Load()
    cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
        App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
        "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
        "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
    "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Answer 3

是啊，装上vb就有了，再部件中添加 Microsoft Winsock Contral 6.0(SP6) 就可以使用

Answer 4

不用装什么winsock，直接让用户填机器名或是IP地址都可以的，它会自己找的

Answer 5

在程序登录界面添加一个文本框，可以填入服务器的IP地址，连接成功后可以保存起来（保存在文件或注册表都可以），然后每次启动程序后程序将读取保存的IP地址，IP地址也可以修改，这样就不怕服务器修改了。