高手们帮小弟看这几行代码,DSN问题。

rsgyq 2004-05-07 09:57:29
Private Sub Command1_Click()
Dim sDsn As New Dsn
Dim bRet As Boolean
bRet = sDsn.CreateDSN("ddd", "sql server", "mysvr", "master", "sa", "123", "just a test", True, "")
MsgBox bRet
Set sDsn = Nothing
End Sub

‘结果 bRet=false,不能创建dsn,请问为什么?谢谢。
'另外,如果连接的是本机上的SQL SERVER,“mysvr”能否“改为“(local)”?
...全文
40 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
射天狼 2004-05-07
  • 打赏
  • 举报
回复
用ADO可以不用DSN

Option Explicit

'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Combo1_Click()
rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
If Not rs.EOF Then
Label1.Caption = rs!ID
Label2.Caption = rs!Memo
End If
End Sub

Private Sub Form_Load()
cn.ConnectionString = ""
cn.Open
'查询字符串可以上这里查
'http://www.connectionstrings.com/
End Sub
azyue 2004-05-07
  • 打赏
  • 举报
回复
哈哈,你呀苯了吧,,,,可以采用拷贝文件的形式呀,先做好的dns的文件,放在程序目录下,。然后直接拷贝。。!!

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧