dim Var_Conn as Connection 'Microsoft.Jet.OLEDB.3.51Set Var_Conn = New Connection 'Microsoft.Jet.OLEDB.3.51
Str_Con = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & StrUserID & " ;PWD=" & StrPWD & ";Initial Catalog=" & StrDataBase & ";Data Source=" & StrServer & ""Var_Conn.Open Str_Con
需要引用ADO
Str_Con = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & StrUserID & " ;PWD=" & StrPWD & ";Initial Catalog=" & StrDataBase & ";Data Source=" & StrServer & ""Var_Conn.Open Str_Con
需要引用ADO
解决方案 »
- 送分100分(紧急):为什么COPYMEMORY(长整形变量A,&H4100,1)执行后A=256,而不等于0
- 数据库连接
- 如何实现两台电脑之间的sql server数据库通信?
- "XXX来了,标准答案来了"者请进
- 关于文件关联的简单问题
- 急!!!大家帮我看看!谢谢了
- 各位高手请进,,,,,,,,,,,,,
- 请教开发思路,关于listview筛选
- 我用的打包软件是Wise Installer ,请问当我完成安装程序后要使马上执行我的EXE程序,如何做?谢谢!
- 怎样使用api来固定窗体的大小?????
- 很急的问题!怎样在程序中关闭msgbox窗口!!!!
- 请教高手!如何点击按钮出现下拉菜单!拜托!拜托!
Public J_CNObj As New ADODB.Connection
Public R_CNObj As New ADODB.Connection
Public B_CNObj As New ADODB.ConnectionPublic Function ConnectServer(StrServerName As String, _
StrUserID As String, StrPassword As String, StrDBSName) As Boolean
'******************************************************
'函数:ConnectServer
'描述:根据调用者提供的参数,打开指定的数据库
'参数:
' StrServerName:服务器名
' StrUserID:数据库用户名
' StrPassword:数据库密码
' StrDBSName:数据库名
'返回:打开成功返回 TRUE,否则返回 FALSE
'最后修改日期:2001-07-10 10:10
'******************************************************
On Error GoTo connecterrhand
J_CNObj.ConnectionString = "SERVER=" & StrServerName & ";PROVIDER=SQLOLEDB" & _
";DATABASE=" & StrDBSName & ";UID=" & StrUserID & ";PWD=" & StrPassword
J_CNObj.Open
ConnectServer = True '成功
Exit Function
connecterrhand:
ConnectServer = False '失败
End Function
Dim strCn as stringstrCn = "Driver={SQL SERVER}; Server= ipaddress; UID=user;PWD=Password;Database=defaulDataBase "cn.Open strCn
然后,你在所谓的客户端配置一下ODBC看看是否通过,若通不过,你应但设置以下ODBC客户端配置,把TCP/IP改为命名管道。