- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- SQL 疑问 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5900)
-- 发布时间：2010/1/29 19:43:00
-- SQL 疑问
大哥大姐告诉小弟一下
连接SQL数据库的时候
为什么用数据库名称连接时出现这个错误对话框
此主题相关图片如下：1.jpg
我用IP连接，又可以。。。。。
此主题相关图片如下：02.jpg
郁闷啊，，测试了4小时，才发现用IP可以。
大哥大姐，是什么原因啊。。。
我都用第一种连接方法，写好了文件，现在连接不上了，要用IP连接，不知道表格中的代码，与菜单中的代码会不会出错，，，，，555
-- 发布时间：2010/1/29 21:24:00
--
没问题吧，只要外部数据名相同就没问题。
-- 发布时间：2010/1/29 21:26:00
--
用IP连接是最好的了。
有时服务器隐藏了服务器名，就只有用IP了。
-- 发布时间：2010/1/30 8:17:00
--
名称一样，有时可以连接，有时提示出错
还是IP安静些，，，哎
-- 发布时间：2010/1/30 8:17:00
--
谢谢
我已经改用IP。。。
-- 发布时间：2010/1/30 8:18:00
--
如果用IP会不会有这个问题
IP冲突
域里面很多用户都是自动IP。。。。。
那一天某个用户自动IP与服务器IP一样，
好危险。。
-- 发布时间：2010/1/30 12:25:00
--
用IP比较好
-- 发布时间：2010/1/30 13:56:00
--
Dim ab As DataRow
ab = DataTables("交期计算参数").Find("[客户名称] = \'" & e.NewValue & "\'")
If ab IsNot Nothing Then
dr("日期计算参数") = ab("日期计算参数")
else
Messagebox.Show("提示: 交期计算参数表中 没有此客户的日期计算参数,请定义.系统发生错误,请填写,谢谢! :) ","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
此代码位置在定单表中（定单表是外部数据源）, 交期计算参数表是内部表，，，，
执行此代码时
ab = DataTables("交期计算参数").Find("[客户名称] = \'" & e.NewValue & "\'")
If ab IsNot Nothing Then
dr("日期计算参数") = ab("日期计算参数")
else
此部分不执行，，，，认真检查过，表名，列名，都是OK的，客户名称也是一致的（列项目都来源于客户资料表）
ab = DataTables("交期计算参数").Find("[客户名称] = \'" & e.NewValue & "\'")
是不是 交期计算参数表，也要是外部数据源才能执行此命令？？？？？
-- 发布时间：2010/1/30 15:07:00
--
代码不全,看不懂了~ dr是???
-- 发布时间：2010/1/30 16:16:00
--
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
case "交货日期"
Dim ab As DataRow
ab = DataTables("交期计算参数").Find("[客户名称] = \'" & e.NewValue & "\'")
If ab IsNot Nothing Then
dr("日期计算参数") = ab("日期计算参数")
else
Messagebox.Show("提示: 交期计算参数表中 没有此客户的日期计算参数,请定义.系统发生错误,请填写,谢谢! :) ","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End Select
好像触发日期列时，无法执行这一段
ab = DataTables("交期计算参数").Find("[客户名称] = \'" & e.NewValue & "\'")
If ab IsNot Nothing Then
dr("日期计算参数") = ab("日期计算参数")
改为
Select Case e.DataCol.Name
case 客户名称
Dim ab As DataRow
ab = DataTables("交期计算参数").Find("[客户名称] = \'" & e.NewValue & "\'")
If ab IsNot Nothing Then
dr("日期计算参数") = ab("日期计算参数")
else
Messagebox.Show("提示: 交期计算参数表中 没有此客户的日期计算参数,请定义.系统发生错误,请填写,谢谢! :) ","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End Select
改为字符列，触发代码，又可以