连接错误那里? 当前打开是master,找不到Employees表 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 database里面不是指定了一个数据库了吗?我的数据库名称是test阿 我不想问用哪一个更好,只是想都了解怎么用法而已,难道rdo就这么不好用 select * from employees Dim rdocn As New rdoConnectionDim SQL As StringDim rdors As rdoResultset Const ConnectString = "uid=;pwd=;driver={SQL Server};server=MyServer;database=northwind;dsn=''"With rdocn .Connect = ConnectString .LoginTimeout = 10 .CursorDriver = rdUseNone .EstablishConnection rdDriverNoPrompt End With SQL = "select * from [Employees]" Set rdors = rdocn.OpenResultset(SQL)MsgBox rdors(2)我这样试了一下,没问题啊 Employees 不用刮号刮起来.select * from employees 有没有API可以判断一个txt文档的编码格式? 时间显示形式的问题? 关于webbrowser重刷新问题 请问如何把从下拉菜单打开的窗口居中显示出来? 请问textbox的边框颜色如何更改? 如何注册自己写DLL和OCX控件?????谢谢大家 **有经验的进来帮我看看,这样的软件报多少价** 求助VB中怎么在webbrowser中显示网页指定的div部分? 帮我看看这段简单的登陆代码,为什么一直报错(100分在线等着你) seagate crystal report8.0 的使用 有谁是湖南的,进来签到! 如何在程序中调用“网络和拨号连接”中的“新建连接”?
Dim SQL As String
Dim rdors As rdoResultset
Const ConnectString = "uid=;pwd=;driver={SQL Server};server=MyServer;database=northwind;dsn=''"
With rdocn
.Connect = ConnectString
.LoginTimeout = 10
.CursorDriver = rdUseNone
.EstablishConnection rdDriverNoPrompt
End With
SQL = "select * from [Employees]"
Set rdors = rdocn.OpenResultset(SQL)
MsgBox rdors(2)我这样试了一下,没问题啊
select * from employees