Dim con As ADODB.Connection Dim rec As ADODB.Recordset Dim com As ADODB.CommandPrivate Sub Command1_Click()Dim con As New ADODB.Connectioncon.ConnectionString = "driver={SQL Server};server=web_server;" & _ "uid=sa;pwd=;database=sydjgl"con.OpenDim rec As New ADODB.Recordset Dim sql As String sql = "select * from qydj " rec.Open sql, con, 1 rec.MoveFirst rec.MoveNext Text1.Text = rec.RecordCountEnd Sub
可能是SQL的驱动没有装吧你在ODBC配置中看看一下有没有sqlserver的驱动
MS SERVER?
Dim rec As ADODB.Recordset
Dim com As ADODB.CommandPrivate Sub Command1_Click()Dim con As New ADODB.Connectioncon.ConnectionString = "driver={SQL Server};server=web_server;" & _
"uid=sa;pwd=;database=sydjgl"con.OpenDim rec As New ADODB.Recordset
Dim sql As String
sql = "select * from qydj "
rec.Open sql, con, 1
rec.MoveFirst
rec.MoveNext
Text1.Text = rec.RecordCountEnd Sub
1.以上的代码及过去论坛都,及官方都 没有有效的解决方法.
2.只对于连接问题,客户端什么都不用装,因为 ADO15 是系统自带的.
3.造成本 不通的 原因 是 SQLSERVER 的 网络连接系统默认 为 管道,需要该为 TCP/IP.4.如果作为商业系统,客户端 不能也不应该 装SQL,或完全的 mdac_typ.exe ,都不太合理.
让用户配制配置ODBC,不太合乎情理.5.事实上,配置ODBC的意义在于 把SQLSERVER 的 网络连接 设为TCP/IP.选则TCP/IP后,
确定,之后全部取消,就是说 没有 真正创建任何 DSN,都能通.一切只需要 不到20个字母,就可完全解决,诸位如果需要 请留下 邮件地址,请原谅暂时不公开 告知.
向导,10分钟,就可以 研究 透 每个表的结构, 还能修改或删除. 所以 只可 把 IP 地址交给用户, 加密 UID AND PASSWORD H和DATABASE .
试试 啊
不需要装SQL SERVER,不需要配置数据源,只要IP,ID,pwd就好了
最好给用户配置的就一个IP,ID和PWD就写在程序里。