VB6连接SQL Server数据库问题

CNConnectionString= "data source=pmserver;initial catalog=Benchmark; persist security info=False;user id=sa;Password=sa;"
这行中的服务器名称、数据库名称、数据库用户名、数据库用户密码都跟原作者的一样么？有一个不一样的地方就出这个错误，其中
pmserver是服务器名称
Benchmark是数据库名称
sa是数据库用户名称
第二个sa是数据库用户密码
把这个连接串改成你自己的就可以了。再不会的话留下QQ我帮你连通。

自己定义一个结构体发字节流过去不就可以了。建议把字节流封包传输
如：
第1个字节 &HB1 表示包头开始标志
第2个字节 &H01 表示发送数据命令
第3-4个字节 &H0005 表示数据长度为5个字节
第5个字节 &H00 具体的数据第1个字节内容
第6个字节 &H00 具体的数据第2个字节内容
第7个字节 &H00 具体的数据第3个字节内容
第8个字节 &H00 具体的数据第4个字节内容
第9个字节 &H00 具体的数据第5个字节内容
第10个字节 &HB5 从包头开始逐个进行异或运算的“异或校检码”，校检数据的完整性用
第11个字节 &HB2 表示包尾
上面这个包主要由6个部分组成
1、包头 用来进行包的初始化识别
2、命令 扩展包协议用，如传输语句、传输控制指令、移动记录等
3、数据长度 我这里的例子是用两个字节表示长度，即最多一个包传输65536个字节的数据
4、数据区域 具体要传输的数据段落
5、异或校检码 为了检测数据的完整性，也可以用CRC16或CRC32等算法进行数据校检
6、包尾 用来完整识别一个包内容的结束标志
通过上面这个包结构，可以在数据包里放置小于65536个字节的内容进行传输
在处理传输数据时可以这么做：
Type SendReport
sr_head As Byte ' 固定为 &HB1
sr_cmd As Byte ' 命令
sr_size As Integer ' 数据大小
sr_data() As Byte ' 数据内容
sr_xor As Byte ' 异或校检码
sr_end As Byte ' 固定为 &HB2
End Type
Type SendRF
rs_type As Integer ' 字段类型
rs_NameSize As Integer ' 字段名称字节数
rs_name() As Byte ' 字段名称内容
rs_size As Integer ' 字段数据大小
rs_data() As Byte ' 字段数据内容
End Type
Type SendRS
rs_fcount As Integer ' 字段数量
rs_data() As SendRF ' 字段数据
End Type

然后把数据集的数据赋值到上面的机构体里，再把结构体的数据格式化到一个字节数组中，便可把这个字节数组发送出去，接收端只要根据格式提取出相关数据到结构体，就可以实现数据的还原过程。在过程里只要善用 CopyMemory API 就可以很容易实现这种过程的处理，如
Dim SR As SendReport
Dim SentBytes() as Byte
Dim i As Long
SRsr_head = &HB1:SRsr_xor = SRsr_head
SRsr_cmd = &H01:SRsr_xor = SRsr_xor xor SRsr_cmd
SRsr_size = &H05:SRsr_xor = SRsr_xor xor SRsr_size
Redim SRsr_data(4)
for i=0 to ubound(SRsr_data)
SRsr_xor = SRsr_xor xor SRsr_data(i)
next i
SRsr_end = &HB2
Redim SentBytes(10)
CopyMemory SentBytes(0),SRsr_head,1
CopyMemory SentBytes(1),SRsr_cmd,1
CopyMemory SentBytes(2),SRsr_size,2
CopyMemory SentBytes(4),SRsr_data(0),5
SentBytes(Ubound(SentBytes)-1) = SRsr_xor
SentBytes(Ubound(SentBytes)) = SRsr_end
Winsock1SendData SentBytes
当然上面只是封包的过程，没有设置具体的数据集数据，不过原理也差不多，也就是读写SendRF和SendRS结构的问题。具体的自己做做看吧。

---