山寨机中的战斗机！	程序优化工程师到底对IT界有没有贡献

请问VB连接SQL Server的方法

楼主CMMcloud（）2002-03-28 16:08:42 在 VB / 基础类提问

请问VB连接SQL Server的方法有多少种？
ADO,DAO,ODBC...
有代码看看吗？

一定给分！问题点数：50、回复次数：10Top

1 楼cdwps（萧宇）回复于 2002-03-28 16:14:42 得分 10

连接SQL
dim conn
set conn=server.createobject("ADODB.connection")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称
Top

2 楼lihonggen0（李洪根，MS MVP，标准答案来了）回复于 2002-03-28 16:17:38 得分 10

Public adoCN As New ADODB.Connection '定义数据库的连接存放数据和代码
Public SqlCommand As New ADODB.Command '定义 SQL 命令
Dim adoDateTime As New ADODB.Recordset '获取 NT-SERVER 时间
'***********************************************************************
'* 功能：与 SQL SERVER 数据库建立连接并取出服务器时间
'***********************************************************************

Public Function OpenConnection() As String '打开数据库
On Error GoTo SQLConErr
With adoCN
.CursorLocation = adUseClient
.Provider = "sqloledb"
.Properties("Data Source").Value = cNtServerName
.Properties("Initial Catalog").Value = cDatabaseName
.Properties("User ID") = cSQLUserName
.Properties("Password") = cSQLPassword
.Properties("prompt") = adPromptNever
.ConnectionTimeout = 15
.Open

If .State = adStateOpen Then
adoDateTime.Open "select getdate()", adoCN, adOpenStatic, adLockOptimistic
cServerDate = Format(adoDateTime(0), "yyyy-mm-dd")
cServertime = Mid(adoDateTime(0), 10)
Else
MsgBox "数据库连接失败，请找系统管理员进行检查！", 16, cProgramName
End
End If
End With

SqlCommand.ActiveConnection = adoCN
SqlCommand.CommandType = adCmdText
Exit Function
SQLConErr:
Select Case Err.Number
Case -2147467259
MsgBox "找不到指定的SQL Server服务器或者数据库不存在，请重新设置！", vbExclamation
F_SetSystem.Show 1
Case -2147217843
MsgBox "指定的SQL Server数据库用户不存在或口令错误，请重新设置！", vbExclamation
F_SetSystem.Show 1
Case Else
MsgBox "数据环境连接失败，请找系统管理员进行检查！", 16, cProgramName
End Select
OpenConnection
End FunctionTop

3 楼CMMcloud（）回复于 2002-03-28 16:22:33 得分 0

出现error提示匡:

Run-time error '424'
Object required

怎么办？

Top

4 楼CMMcloud（）回复于 2002-03-28 16:22:53 得分 0

出现error提示匡:

Run-time error '424'
Object required

怎么办？

Top

5 楼vivan19781111（vivan kaici）回复于 2002-03-28 16:26:26 得分 10

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "Provider=sqloledb;data source=机器名;user ID=sa;password=密码"
Set rs = New ADODB.Recordset
End Sub
Top

6 楼CMMcloud（）回复于 2002-03-28 16:27:02 得分 0

to cdwps(萧宇) :

Dim conn
Set conn = server.CreateObject("ADODB.connection")
conn.open "PROVIDER=SQLOLEDB;DATASOURCE=192.168.0.253;UID=sa;PWD=yes;DATABASE=edan"

Top

7 楼dwei（大卫）回复于 2002-03-28 16:29:23 得分 10

you did not create a object.

dim cnData as New ADO.Connection
or
dim objData as Ojbect
set objData=CreateObject("ADO.Connection")
.............Top

8 楼wangsitao（飞猪）回复于 2002-03-28 16:30:40 得分 10

如果你这样声明变量
Public g_objDBC As ADODB.Connection
那么在连接时须
Set g_objDBC = New ADODB.Connection
g_objDBC.ConnectionString = strValue
g_objDBC.Open

strValue是连接字串Top

9 楼CMMcloud（）回复于 2002-03-28 16:37:42 得分 0

wangsitao(飞猪) :
我Open可以，但是我要看结果怎么看？

Top

10 楼CMMcloud（）回复于 2002-03-28 16:53:56 得分 0

怎么给分阿？Top

11 楼coffee_cn（coffee）回复于 2002-03-28 18:11:06 得分 0

怎么给分
我来告诉你
但是别忘了给我分哦

打开这个帖子，看到这个了吗？？
回复 | 推荐 | 收藏 | 专题 | 公告 | 管理 | 关闭窗口

点里面的管理是是！注意登录哦。
另外送分时候别忘了输入密码？
赶快送出去吧
不送也浪费了！你自己也没有办法取回去！Top