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

[rsgyq]

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)”？

[azyue]

哈哈，你呀苯了吧，，，，可以采用拷贝文件的形式呀，先做好的dns的文件，放在程序目录下，。然后直接拷贝。。！！

• 打赏
• 举报

回复 赞

[射天狼]

用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

• 打赏
• 举报

回复 赞