to wqb(啊喂) Dim conne As New Adodb.Connection Dim rs As New Recordset Dim str, sql As String 'str是数据库路径 sql是sql语句 str = "Provider=SQLOLEDB.1;Password=jack;Persist Security Info=True;User ID=jack;Initial Catalog=our class;Data Source=XXX.XXX.XXX.XXX" conne.Open str sql = "select * from 通讯录 where 姓名='" + Form2.Text1.Text + "' and 密码='" + Form2.Text2.Text + "'" rs.Open sql, conne If Not rs.EOF Then Load Form1 Form1.Show Form1.Refresh Unload Form2 Else: Form2.Text1.Text = "" Form2.Text2.Text = "" End If rs.Close conne.Close Set rs = Nothing Set conne = Nothing End Sub 在我服务器上运行没有问题,一发布后在客户机上运行会出现下面的问题: -2147467259(80004005) [DBNMPNTW] Connectionopen(createfile()) 我都写入程序了,还是不行。
程序在客户端运行并L到服务器,在客户端不要配置ODBC Data Source。要如何打包这个程序?OR如何解决?
如果你是用 win 98 上的sql server ,当然是这种错误, 并且你要保证你的 server 可以用 Tcp/Ip 通讯。
chenlp99(遇上兵的书生) 我是WIN2K SEVER+SQL 2000 server 可以用 Tcp/Ip 通讯
绝对不可以的,我用过。
Dim conne As New Adodb.Connection
Dim rs As New Recordset
Dim str, sql As String 'str是数据库路径 sql是sql语句
str = "Provider=SQLOLEDB.1;Password=jack;Persist Security Info=True;User ID=jack;Initial Catalog=our class;Data Source=XXX.XXX.XXX.XXX"
conne.Open str
sql = "select * from 通讯录 where 姓名='" + Form2.Text1.Text + "' and 密码='" + Form2.Text2.Text + "'"
rs.Open sql, conne
If Not rs.EOF Then
Load Form1
Form1.Show
Form1.Refresh
Unload Form2
Else: Form2.Text1.Text = ""
Form2.Text2.Text = ""
End If
rs.Close
conne.Close
Set rs = Nothing
Set conne = Nothing
End Sub
在我服务器上运行没有问题,一发布后在客户机上运行会出现下面的问题:
-2147467259(80004005)
[DBNMPNTW] Connectionopen(createfile())
我都写入程序了,还是不行。
并且你要保证你的 server 可以用 Tcp/Ip 通讯。
我是WIN2K SEVER+SQL 2000 server 可以用 Tcp/Ip 通讯
2. 客户端是否支持oledb?
1. ok
2.ok
你程序是在Win2K下编译的,而客户端是win98?
如果是这样的话,你在win98下再编译一下,然后打包试试
数据库的权限!!!!!
如果不是就不能连接到sql2000的服务器。
找一个mdac_typ.exe的程序(sql2000的,但具我所知sql2000安装盘中是找不到的,它被封装了),打包到你的程序中。
我的问题是
程序在客户端运行并L到服务器,在客户端不要配置ODBC Data Source。要如何打包这个程序?OR如何解决?to
ganzhiruogy(方竹)
哪有下?
关于mdac_typ.exe我只有vb6sp4的版本
在sql2000的安装中有一个“客户端网络实用工具”,其实装的就是这个mdac