测试远程连接 既范例，各种测试通过

wjz0823

ldy888,不好意思,忘说了

测试结果

 地点:江苏南京

 线路:电信

 查询时间:约1秒

ldy888

QUOTE:

以下是引用十二门徒在2007-3-6 12:45:56的发言：

地点:重庆

线路:中国电信

测试时间:2007-3-6 12 : 41

返回记录:137条

查询时间:约1秒

评价:好,很好.

建议:加大数据量,测试如何更新数据.

谢谢兄弟的热心。

读数据库列头的语句加在rc.open .........之下

 For Each Field In rc.Fields '读数据库列头
[a4].Offset(0, i) = Field.Name
 i = i + 1
 Next

可自编语句对其修改、添加

字段名 如下

city	yb	qh	shf	py	pya	szm
阿城	150300	0450	黑龙江	AC	ACheng	---
阿克苏	843000	0997	新疆	AKS	AKeSu	AKU
阿勒泰	836500	09009	新疆	ALT	ALeTai	AAT
阿图什	845300	09081	新疆	ATS	ATuShi	---
安陆	432600	07225	湖北	AL	AnLu	---
安庆	246000	0556	安徽	AQ	AnQing	AQG
安顺	561000	0853	贵州	AS	AnShun	---

ldy888

Q版的网通测试进行了吗？

clothfish

偶这里是上海教育网

ldy888

楼上短信已发

听人说电信和网通，用数据库连接很难成功，也不知道真的假的。

一直没见到网通用户试不成

十二门徒

将yb字段全改为100021

    '更新数据
    Dim cnn As New ADODB.Connection
    Dim strsql As String
    Dim strcon As String
    
    On Error GoTo Err_Exit
    strsql = "update city2 set yb = '100021'"
    strcon = "Driver={SQL Server};Server=" & "218.17.231.179" & ";UID=" & "saa" & ";PWD=" & "s123" & ";DataBase=" & "test"
    cnn.Open strcon
    cnn.Execute (strsql)
    MsgBox "更新完成", vbInformation, "更新成功"
    Exit Sub
Err_Exit:
    MsgBox "没连上，ip可能变了、线路不好、密码变了，防火墙？.......", vbCritical, "失败"

更新速度还是比较快,不知道多人同时操作会出现什么情况?

[此贴子已经被作者于2007-3-6 14:36:17编辑过]

clothfish

1秒左右
我这里是教育网,连电信的话很困难

ldy888

QUOTE:

以下是引用十二门徒在2007-3-6 14:35:44的发言：

将yb字段全改为100021

  

更新速度还是比较快,不知道多人同时操作会出现什么情况?

呵呵 这个资料没有参考价值了，

多人操作和服务器的带宽，配置有关。

当前配置 2M ADSL局域网，AMD2800 cpu  512内存

估计100人以内问题不大

ldy888

QUOTE:

以下是引用clothfish在2007-3-6 14:42:38的发言：

1秒左右
我这里是教育网,连电信的话很困难

我这里就是电信的ADSL

1秒 左右 很好啊

多谢各位测试，结果理想。测试暂停。

开防火墙咯

[此贴子已经被作者于2007-3-6 14:48:38编辑过]

clothfish

自己机器上开sql server注意安全,呵呵

我中招过