求完整的用ADO连接SQL SERVER的语句
因为手头没有资料,又急用
要求有注释说明,以及参数的说明,以及怎样使用SQL 语句提取数据库里一个表里的记录,下一条记录,上一条记录等
问题点数：80、回复次数：6Top
1 楼gump2000（阿甘）回复于 2002-03-28 15:43:01 得分 18
'连接string
QueryCnnString = "Provider=SQLOLEDB.1;Password=" & PassWord & _
";Persist Security Info=True;User ID=" & UserName & ";Initial Catalog=" & DataSource & _
";Data Source=" & HostName
dim rs as new AdoDB.RecordSet
rs.open you_table, cnn(ADODB.CONNECTION)'打开
rs.movenext'下一
rs.MovePrevious '上
Top
2 楼duibudui（）回复于 2002-03-28 15:44:33 得分 18
Set ADOConn = New ADODB.Connection
sCon="Provider=SQLOLEDB.1; uid=sa;pwd=;server=Server;database=DB"
ADOConn.Open sCon
Set oResultRst = New ADODB.Recordset
oResultRst.Open "TableName", ADOConn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
oResultRst.movenextTop
3 楼baguijin999（）回复于 2002-03-28 15:51:01 得分 18
'连接数据库并将它打开
Set Gbl_DB_Con = New ADODB.Connection
Gbl_DB_Con.Open "Provider = sqloledb;data source=devserver;user ID=sa;initial catalog=test_Excel;password= pass"
Dim i As Integer
'建立数据集
Dim RS_Get_Form_Name_Array As ADOR.Recordset
Set RS_Get_Form_Name_Array = New ADOR.Recordset
RS_Get_Form_Name_Array.Open "SELECT f_form_name " _
& "FROM t_form ", _
Gbl_DB_Con, adOpenStatic, adLockReadOnly
If RS_Get_Form_Name_Array.RecordCount <> 0 Then
RS_Get_Form_Name_Array.MoveFirst
RS_Get_Form_Name_Array.MoveLast
RS_Get_Form_Name_Array.MoveFirst
End If
ReDim Tmp_Form_Name_Array(RS_Get_Form_Name_Array.RecordCount) As String
For i = 1 To RS_Get_Form_Name_Array.RecordCount
Tmp_Form_Name_Array(i) = RS_Get_Form_Name_Array ("f_form_name")
RS_Get_Form_Name_Array.MoveNext
Next
RS_Get_Form_Name_Array.Close
Set RS_Get_Form_Name_Array = NothingTop
4 楼lihonggen0（李洪根，MS MVP，标准答案来了）回复于 2002-03-28 16:08:22 得分 10
Private Sub Form_Load()
Dim adoCN As New ADODB.Connection '定义数据库的连接存放数据和代码
Dim rstSchema As New ADODB.Recordset
Dim strCnn As New ADODB.Recordset
str1 = "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=wktrade;Data Source=net5"
adoCN.Open str1
Set rstSchema = adoCN.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
out = out & "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext
Loop
rstSchema.Close
adoCN.Close
Debug.Print out
End Sub
Top
5 楼lihonggen0（李洪根，MS MVP，标准答案来了）回复于 2002-03-28 16:10:20 得分 10
Public adoCN As New ADODB.Connection '定义数据库的连接存放数据和代码
Public SqlCommand As New ADODB.Command '定义 SQL 命令
Dim adoDateTime As New ADODB.Recordset '获取 NT-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 Function
Top
6 楼lihonggen0（李洪根，MS MVP，标准答案来了）回复于 2002-03-28 16:14:53 得分 6
dim Rs As New ADODB.Recordset
With Rs
If .State = adStateOpen Then
.Close
End If
.ActiveConnection = adoCN
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockBatchOptimistic
.Source = "SELECT * FROM Table"
.Open
End With
Rs.MoveNext '下一条记录
Rs.MovePrevious '上一条记录Top
相关问题
- --SQL SERVER语句问题：
- ----SQL SERVER语句问题：
- 超难: ADO/BDE连接SQL Server，执行SQL语句出现"Lick time out \n SQL Server 连接超时"
- 超难: ADO/BDE连接SQL Server，TADOQuery/TQuery执行SQL语句出现"Lick time out \n SQL Server 连接超时"
- 用ADO执行SQL语句,语句太长了就会出错???
- SQL server的SQL语句问题（和case语句有关）
- MS SQL SERVER 语句 转化为 PL*SQL语句 的问题，急！！！！！
- SQL SERVER中的SQL语句用法?
- 请教！Sql Server的sql语句问题？？
- 为什么ADO使用SQL 查询语句查询SQL Server 服务器的时候不分大小
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
