SQL2008用ADO出错，如何解决？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → SQL2008用ADO出错，如何解决？

共有47人关注过本帖树形打印复制链接主题：SQL2008用ADO出错，如何解决？

lgz518

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1346 积分：9282 威望：0 精华：0 注册：2019/6/13 9:57:00

SQL2008用ADO出错，如何解决？ 发帖心情

Post By：2025/3/20 9:17:00 [只看该作者]

"name": "sqlserver01",

"type": "sqlserver",

"connectionString": "EA15E16B5A5E80A0B8F64FD80551F5C3B5C5109FEBBABE8AEEA40934EAB1D85925F254F3967C56EFCAC1DF6EFDBD77FF5FE075E1AA1CA75767DAF84EA4A206A1CF9CD21AA7F85E334AB30A75C365FDB31F0B28DAD846F6995DF15A428CF373710EA72F7BB56AE6C7316663134F7AB1DC"

"name": "sqlserver01",

"type": "sqlserver",

"connectionString": "server=127.0.0.1;user id=SQL08;password=123;database=sqlserver01;sslmode=none"

SQL2008用ADO，上面红字代码改下面红字代码，执行后，提示找不到对象，没有数据

问题一：如何改？

问题二：在上面基础上加个端口号，要加在哪？

ACCESS,SQL2008,MYSQL的修改端口号可多少到多少号？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112864 积分：574689 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2025/3/20 9:50:00 [只看该作者]

"connectionString": "Data Source=127.0.0.1;Initial Catalog=test;Persist Security Info=false;User ID=SQL08;Password=123;Timeout=90"

加端口

"connectionString": "Data Source=127.0.0.1,1433;Initial Catalog=test;Persist Security Info=false;User ID=SQL08;Password=123;Timeout=90"

lgz518

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1346 积分：9282 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/3/20 12:02:00 [只看该作者]

Persist Security Info=false;

Timeout=90

以上二行是代表什么意思？

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112864 积分：574689 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2025/3/20 12:05:00 [只看该作者]

百度了

lgz518

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1346 积分：9282 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/3/20 12:46:00 [只看该作者]

错误所在事件：窗口,用户登录窗口,AfterLoad

详细错误信息：

未将对象引用设置到对象的实例。SQL2008

Dim db = HySql.DataBaseFactory.CreateDatabase("y12db") '

Dim SqlG = "SELECGT DISTINCT 姓名 From 用户表;" '"

Dim dt As system.data.DataTable = db.ExecuteDataSet(SqlG).Tables(0)

dt.TableName = "用户表" '"

Dim cmb As WinForm.ComboBox = e.Form.Controls("姓名")'"

For Each dr As system.data.DataRow In dt.rows

cmb.Items.Add(dr("姓名")) '

cmb.SelectedIndex = 0

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112864 积分：574689 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2025/3/20 13:34:00 [只看该作者]

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

lgz518

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1346 积分：9282 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/3/20 14:07:00 [只看该作者]

Dim db = HySql.DataBaseFactory.CreateDatabase("y12db") '

Dim SqlG = "SELECGT DISTINCT 姓名 From 用户表;" '"

MessageBox.Show(SqlG)

Dim dt As system.data.DataTable = db.ExecuteDataSet(SqlG).Tables(0)

dt.TableName = "用户表" '"

Dim cmb As WinForm.ComboBox = e.Form.Controls("姓名")'"

MessageBox.Show(1)

For Each dr As system.data.DataRow In dt.rows

cmb.Items.Add(dr("姓名")) '

还是报错下面提示：没有其他提示

错误所在事件：窗口,用户登录窗口,AfterLoad

详细错误信息：

未将对象引用设置到对象的实例。SQL2008

cmb.SelectedIndex = 0

lgz518

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1346 积分：9282 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/3/20 14:09:00 [只看该作者]

试过MYSQL，ACCESS都可以，SQLG2008是出错，是什么原因？

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：112864 积分：574689 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2025/3/20 14:17:00 [只看该作者]

如果MessageBox都没有弹出来，说明不是什么代码的问题。可能是配置文件有问题。如果是SqlServer，建议使用foxtable提供的用法直接设置数据源，没有必要使用第三方组件

lgz518

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1346 积分：9282 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2025/3/20 14:28:00 [只看该作者]

有一个项目之前用MYSQL开发，现在要转SQLG2008,如改用ET，安全，代码量改很大

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：SQL2008用ADO出错，如何解决？