十万火急,有关于VB ADO与SQL SERVER 建立连接的问题(在线等待) cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=zqh1;Initial Catalog=clgl;Data Source=" & readstartcn.Open 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Option ExplicitPublic Gadocn_app As New ADODB.ConnectionPublic Sub OpenConn()On Error GoTo err Dim ip As String ip = frmLogin.ip(0).Text + "." + frmLogin.ip(1).Text + "." + frmLogin.ip(2).Text + "." + frmLogin.ip(3).Text '连接数据库 With Gadocn_app If .State = 0 Then .ConnectionTimeout = 30 '.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=jxc;uid=sa;pwd=;Data Source='" & ip & "'" ' .ConnectionString = "Provider=SQLOLEDB.1;Initial Catalog=jxc;uid=sa;pwd=;Data Source='" & ip & "'" ' .ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=jxc;uid=sa;pwd=;Data Source='192.168.1.19'" .ConnectionString = "Provider=SQLOLEDB.1;Initial Catalog=jxc;uid=sa;pwd=;Data Source=oemcomputer" .CursorLocation = adUseClient .Open End If End With Exit Suberr: MsgBox "连接数据库失败,请联系数据库管理员!", vbCritical, "出错!" EndEnd Sub .State 不是connection 的屬性,而是recordset的屬性。如上面老兄所說,成功連接沒有錯誤,失敗連接返回錯誤,捕捉這個錯誤就成了 ConnectionString 是这样写的:"Provider=SQLOLEDB.1;Password=" & txtPassWord & ";Persist Security Info=False;User ID=" & txtUserName & ";Initial Catalog=" & cmbDBList.Text & ";Data Source=" & txtDBServerName & ";;Connect Timeout=3" cmbDBList.Text 为数据库名称 Provider=SQLOLEDB.1;Persist Security Info=False;User ID=zqh1;Initial Catalog=clgl;Data Source=" & readstart 袖珍数据库连接方式查询手册上袖珍数据库连接方式查询手册 下面的资料是平时使用到的一些数据库连接方式,可能不太全,但是可以用来当做资料查询,希望能够帮上大家的忙。 下面将简单介绍一下几种ADO连接方式:ODBC DSN,ODBC DSN-Less, OLE DB Provider,和"MS Remote" Provider. I.DSN oConn.Open "DSN=AdvWorks; UID=Admin; PWD=;" 注意:从MDAC2.1开始就不能够在使用这样的方式了,就是只把DSN文件名放在ConnectString中。你必须同时使用DSN,UID,PWD标志。例如下面的方式在MDAC 2.1中将会出错:oConn.Open "AdvWorks" II.File DSN oConn.Open "FILEDSN=\somepath\mydb.dsn; UID=Admin; PWD=;" III.ODBC DSN-Less Connections a)ODBC Text Driver oConn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)}; Dbq=\somepath\;" & _ "Extensions=asc,csv,tab,txt; Persist Security Info=False" 注意:需要在SQL语句中指定使用到的文件名。例如: oRs.Open "Select * From customer.csv", oConn, adOpenStatic, adLockReadOnly, adCmdText b)ODBC Driver for Access i)普通安全模式: oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq=\somepath\mydb.mdb; Uid=Admin; Pwd=;" ii)如果使用了System database: oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq=\somepath\mydb.mdb; SystemDB=\somepath\mydb.mdw;", "admin", "" c)ODBC Driver for SQL Server i)普通安全模式 oConn.Open "Driver={SQL Server}; Server=carl2;" & _ "Database=pubs; Uid=sa; Pwd=;" ii)使用信任安全模式: oConn.Open "Driver={SQL Server}; Server=carl2;" & _ "Database=pubs; Uid=; Pwd=;" 注意:要使用空白的Uid和Pwd d)ODBC Driver for Oracle i)使用现有的Oracle ODBC Driver from Microsoft: oConn.Open "Driver={Microsoft ODBC for Oracle};" & _ "Server=OracleServer.world; Uid=demo; Pwd=demo;" ii)使用老版本的Oracle ODBC Driver from Microsoft: oConn.Open "Driver={Microsoft ODBC Driver for Oracle};" & _ "ConnectString=OracleServer.world; Uid=demo; Pwd=demo;" IV)使用微软的OLE DB Data Link Connections方式Data Link File (UDL) a)使用绝对路径 oConn.Open "File Name=\somepath\pubs.udl;" b)使用相对路径 oConn.Open "File Name=pubs.udl;" 以上代码来自: SourceCode Explorer(源代码数据库) 复制时间: 2002-05-14 19:30:47 当前版本: 1.0.675 作者: Shawls 个人主页: Http://Shawls.Yeah.Net E-Mail: [email protected] QQ: 9181729袖珍数据库连接方式查询手册下 V)OLE DB Provider Connections方式 a)OLE DB Provider for ODBC Databases i)Access (Jet): oConn.Open "Provider=MSDASQL; Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq=\somepath\mydb.mdb; Uid=Admin; Pwd=;" ii)SQL Server: oConn.Open "Provider=MSDASQL; Driver={SQL Server};" & _ "Server=carl2; Database=pubs; Uid=sa; Pwd=;" b)OLE DB Provider for Microsoft Jet (Access) i)普通安全模式: oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=\somepath\mydb.mdb; User Id=admin; Password=;" ii)如果使用了System database: oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=\somepath\mydb.mdb; Jet OLEDB:System Database=system.mdw;", "admin", "" 注意:当使用OLE DB Provider4.0版本是,需要把MDB和MDW文件转换成4.0的数据库格式 iii)如果MDB需要一个数据库密码的话: oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=\somepath\mydb.mdb; Jet OLEDB:Database Password=MyDbPassword;", "admin", "" c)OLE DB Provider for Excel Spreadsheet: oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\somepath\expenses.xls;" & _ "Extended Properties=Excel 8.0;HDR=Yes;" 注意: "HDR=Yes"表示在第一行中是行标题,在provider中将不把第一行包括入recordset中 d)OLE DB Provider for SQL Server i)普通安全模式: oConn.Open "Provider=sqloledb; Network Library=DBMSSOCN;" & _ "Data Source=carl2; Initial Catalog=pubs; User Id=sa; Password=;" ii)使用信任安全模式: oConn.Open "Provider=sqloledb; Network Library=DBMSSOCN;" & _ "Data Source=carl2; Initial Catalog=pubs; Trusted_Connection=yes;" 注意:"Network Library=DBMSSOCN"声明OLE DB使用TCP/IP替代Named Pipes. e)OLE DB Provider for Oracle oConn.Open "Provider=msdaora; Data Source=OracleServer.world;" & _ "User Id=sa; Password=;" (VI)Remote OLE DB Provider Connections方式(就是RDS方式): a)MS Remote - Access (Jet) i)ODBC DSN: oConn.Open "Remote Server=http://carl2; Remote Provider=MSDASQL;" & _ "DSN=AdvWorks; Uid=admin; Pwd=;" ii)OLE DB Provider: oConn.Open "Provider=MS Remote; Remote Server=http://carl2;" & _ "Remote Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\somepath\mydb.mdb;", "admin", "" iii)OLE DB Provider自定义事务对象 oConn.Open "Provider=MS Remote; Remote Server=http://carl2;" & _ "Handler=MSDFMAP.Handler; Data Source=MyAdvworksOLEDBConnectTag;" b)MS Remote - SQL Server i)ODBC DSN: oConn.Open "Remote Server=http://carl2; Remote Provider=MSDASQL;" & _ "Network Library=DBMSSOCN; DSN=Pubs; Uid=sa; Pwd=;" ii)OLE DB Provider oConn.Open "Provider=MS Remote; Remote Server=http://carl2;" & _ "Remote Provider=SQLOLEDB; Network Library=DBMSSOCN;" & _ "Data Source=carl2; Initial Catalog=pubs; User ID=sa; Password=;" 以上代码来自: SourceCode Explorer(源代码数据库) 复制时间: 2002-05-14 19:30:55 当前版本: 1.0.675 作者: Shawls 个人主页: Http://Shawls.Yeah.Net E-Mail: [email protected] QQ: 9181729 使用vb要求2个客户端视频播放同步,高手进来给点意见 [求助]VB中ACESS数据库查询赋值耗时太长的问题 在vb中如何备份还原access数据库? XDB+ADO能承受 300万数据库的压力还能运行良好? 删除文本文件的一行或向行记录,不是删除文件 高分请教:如何对现有控件进行改进? 怎么回事? VB自定义数据类型 求助!!!!!!!!!清空ACCESS对象中OLE对象的字段. 在api中参数的位置??????????? 问个弱问题(在线等待送分) 在VB中如何实现窗口始终在最前方?
Public Gadocn_app As New ADODB.ConnectionPublic Sub OpenConn()On Error GoTo err
Dim ip As String
ip = frmLogin.ip(0).Text + "." + frmLogin.ip(1).Text + "." + frmLogin.ip(2).Text + "." + frmLogin.ip(3).Text
'连接数据库
With Gadocn_app
If .State = 0 Then
.ConnectionTimeout = 30
'.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=jxc;uid=sa;pwd=;Data Source='" & ip & "'"
' .ConnectionString = "Provider=SQLOLEDB.1;Initial Catalog=jxc;uid=sa;pwd=;Data Source='" & ip & "'"
' .ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=jxc;uid=sa;pwd=;Data Source='192.168.1.19'"
.ConnectionString = "Provider=SQLOLEDB.1;Initial Catalog=jxc;uid=sa;pwd=;Data Source=oemcomputer"
.CursorLocation = adUseClient
.Open
End If
End With
Exit Sub
err:
MsgBox "连接数据库失败,请联系数据库管理员!", vbCritical, "出错!"
End
End Sub
如上面老兄所說,成功連接沒有錯誤,失敗連接返回錯誤,捕捉這個錯誤就成了
"Provider=SQLOLEDB.1;Password=" & txtPassWord & ";Persist Security Info=False;User ID=" & txtUserName & ";Initial Catalog=" & cmbDBList.Text & ";Data Source=" & txtDBServerName & ";;Connect Timeout=3"
下面将简单介绍一下几种ADO连接方式:ODBC DSN,ODBC DSN-Less, OLE DB Provider,和"MS Remote" Provider. I.DSN
oConn.Open "DSN=AdvWorks; UID=Admin; PWD=;"
注意:从MDAC2.1开始就不能够在使用这样的方式了,就是只把DSN文件名放在ConnectString中。你必须同时使用DSN,UID,PWD标志。例如下面的方式在MDAC 2.1中将会出错:oConn.Open "AdvWorks" II.File DSN
oConn.Open "FILEDSN=\somepath\mydb.dsn; UID=Admin; PWD=;" III.ODBC DSN-Less Connections
a)ODBC Text Driver
oConn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)}; Dbq=\somepath\;" & _
"Extensions=asc,csv,tab,txt; Persist Security Info=False"
注意:需要在SQL语句中指定使用到的文件名。例如:
oRs.Open "Select * From customer.csv", oConn, adOpenStatic, adLockReadOnly, adCmdText b)ODBC Driver for Access
i)普通安全模式:
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=\somepath\mydb.mdb; Uid=Admin; Pwd=;" ii)如果使用了System database:
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=\somepath\mydb.mdb; SystemDB=\somepath\mydb.mdw;", "admin", "" c)ODBC Driver for SQL Server
i)普通安全模式
oConn.Open "Driver={SQL Server}; Server=carl2;" & _
"Database=pubs; Uid=sa; Pwd=;" ii)使用信任安全模式:
oConn.Open "Driver={SQL Server}; Server=carl2;" & _
"Database=pubs; Uid=; Pwd=;" 注意:要使用空白的Uid和Pwd d)ODBC Driver for Oracle
i)使用现有的Oracle ODBC Driver from Microsoft:
oConn.Open "Driver={Microsoft ODBC for Oracle};" & _
"Server=OracleServer.world; Uid=demo; Pwd=demo;" ii)使用老版本的Oracle ODBC Driver from Microsoft:
oConn.Open "Driver={Microsoft ODBC Driver for Oracle};" & _
"ConnectString=OracleServer.world; Uid=demo; Pwd=demo;"
IV)使用微软的OLE DB Data Link Connections方式Data Link File (UDL)
a)使用绝对路径
oConn.Open "File Name=\somepath\pubs.udl;" b)使用相对路径
oConn.Open "File Name=pubs.udl;"
以上代码来自: SourceCode Explorer(源代码数据库)
复制时间: 2002-05-14 19:30:47
当前版本: 1.0.675
作者: Shawls
个人主页: Http://Shawls.Yeah.Net
E-Mail: [email protected]
QQ: 9181729
袖珍数据库连接方式查询手册下 V)OLE DB Provider Connections方式
a)OLE DB Provider for ODBC Databases
i)Access (Jet):
oConn.Open "Provider=MSDASQL; Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=\somepath\mydb.mdb; Uid=Admin; Pwd=;" ii)SQL Server:
oConn.Open "Provider=MSDASQL; Driver={SQL Server};" & _
"Server=carl2; Database=pubs; Uid=sa; Pwd=;" b)OLE DB Provider for Microsoft Jet (Access)
i)普通安全模式:
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\somepath\mydb.mdb; User Id=admin; Password=;" ii)如果使用了System database:
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\somepath\mydb.mdb; Jet OLEDB:System Database=system.mdw;", "admin", ""
注意:当使用OLE DB Provider4.0版本是,需要把MDB和MDW文件转换成4.0的数据库格式 iii)如果MDB需要一个数据库密码的话:
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\somepath\mydb.mdb; Jet OLEDB:Database Password=MyDbPassword;", "admin", "" c)OLE DB Provider for Excel Spreadsheet:
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\somepath\expenses.xls;" & _
"Extended Properties=Excel 8.0;HDR=Yes;"
注意: "HDR=Yes"表示在第一行中是行标题,在provider中将不把第一行包括入recordset中 d)OLE DB Provider for SQL Server
i)普通安全模式:
oConn.Open "Provider=sqloledb; Network Library=DBMSSOCN;" & _
"Data Source=carl2; Initial Catalog=pubs; User Id=sa; Password=;" ii)使用信任安全模式:
oConn.Open "Provider=sqloledb; Network Library=DBMSSOCN;" & _
"Data Source=carl2; Initial Catalog=pubs; Trusted_Connection=yes;"
注意:"Network Library=DBMSSOCN"声明OLE DB使用TCP/IP替代Named Pipes. e)OLE DB Provider for Oracle
oConn.Open "Provider=msdaora; Data Source=OracleServer.world;" & _
"User Id=sa; Password=;" (VI)Remote OLE DB Provider Connections方式(就是RDS方式):
a)MS Remote - Access (Jet)
i)ODBC DSN:
oConn.Open "Remote Server=http://carl2; Remote Provider=MSDASQL;" & _
"DSN=AdvWorks; Uid=admin; Pwd=;" ii)OLE DB Provider:
oConn.Open "Provider=MS Remote; Remote Server=http://carl2;" & _
"Remote Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\somepath\mydb.mdb;", "admin", "" iii)OLE DB Provider自定义事务对象
oConn.Open "Provider=MS Remote; Remote Server=http://carl2;" & _
"Handler=MSDFMAP.Handler; Data Source=MyAdvworksOLEDBConnectTag;" b)MS Remote - SQL Server
i)ODBC DSN:
oConn.Open "Remote Server=http://carl2; Remote Provider=MSDASQL;" & _
"Network Library=DBMSSOCN; DSN=Pubs; Uid=sa; Pwd=;" ii)OLE DB Provider
oConn.Open "Provider=MS Remote; Remote Server=http://carl2;" & _
"Remote Provider=SQLOLEDB; Network Library=DBMSSOCN;" & _
"Data Source=carl2; Initial Catalog=pubs; User ID=sa; Password=;"
以上代码来自: SourceCode Explorer(源代码数据库)
复制时间: 2002-05-14 19:30:55
当前版本: 1.0.675
作者: Shawls
个人主页: Http://Shawls.Yeah.Net
E-Mail: [email protected]
QQ: 9181729