高手们帮小弟看这几行代码,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)”?
...全文
14 2 点赞 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
射天狼 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的文件,放在程序目录下,。然后直接拷贝。。!!
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库(包含打印,安装,报表)
加入

1191

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-05-07 09:57
社区公告
暂无公告