7,789
社区成员
发帖
与我相关
我的任务
分享请问VB如何连接SQLserver?
我想用VB连接SQLserver,希望能提供个最简单的实例,因为我是新手,太复杂看不懂.
仅仅提供如何连接,连接后读出里面其中 某库 某表 某字段 的内容就OK了
谢谢!期待!
仅仅提供如何连接,连接后读出里面其中 某库 某表 某字段 的内容就OK了
谢谢!期待!
...全文
请发表友善的回复…
发表回复
吾非大神 2006-11-21
- 打赏
- 举报
Dim cnn1 As ADODB.Connection'定义连接
Dim rstEmployees As ADODB.Recordset'定义记录集
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=;"
cnn1.Open strCnn
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open "employee", cnn1, , , adCmdTable
关键是这
Dim rstEmployees As ADODB.Recordset'定义记录集
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=;"
cnn1.Open strCnn
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open "employee", cnn1, , , adCmdTable
关键是这
shala99 2006-11-21
- 打赏
- 举报
学习
VILLA1207 2006-11-21
- 打赏
- 举报
用ODBC
jackeyabc 2006-11-21
- 打赏
- 举报
接点分~
二楼的没有什么错~
如果遇到什么问题,欢迎贴出来~
二楼的没有什么错~
如果遇到什么问题,欢迎贴出来~
笨笨兔兔兔兔兔 2006-11-21
- 打赏
- 举报
www.connectionstrings.com
ZOU_SEAFARER 2006-11-21
- 打赏
- 举报
2 楼已经把问题解答的很清楚了
jam021 2006-11-21
- 打赏
- 举报
http://www.xiuhao.net/dispbbs.asp?boardid=2&id=883
cangwu_lee 2006-11-21
- 打赏
- 举报
很好
pbf2000 2006-11-21
- 打赏
- 举报
我也是新手,也在学习ing
从ADO帮助里COPY一段给你看一下
基本流程就是
1：定义(固定)
2：设置连接字符串
3：open
4：取数
Public Sub AddNewX()
Dim cnn1 As ADODB.Connection'定义连接
Dim rstEmployees As ADODB.Recordset'定义记录集
Dim strCnn As String
Dim strID As String
Dim strFirstName As String
Dim strLastName As String
Dim booRecordAdded As Boolean
' 打开连接。
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=;"
cnn1.Open strCnn
' 打开雇员表。
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open "employee", cnn1, , , adCmdTable
' 从用户获取数据，雇员 ID 的格式必须为：
' 名、中间名和姓的三个首字母，
' 五位数字，以及性别标识 M 或 F。
' 例如，Bill Sornsin 的雇员 ID 为：B-S55555M。
strID = Trim(InputBox("Enter employee ID:"))
strFirstName = Trim(InputBox("Enter first name:"))
strLastName = Trim(InputBox("Enter last name:"))
' P只在用户输入姓和名之后进行。
If (strID <> "") And (strFirstName <> "") _
And (strLastName <> "") Then
rstEmployees.AddNew
rstEmployees!emp_id = strID
rstEmployees!fname = strFirstName
rstEmployees!lname = strLastName
rstEmployees.Update
booRecordAdded = True
从ADO帮助里COPY一段给你看一下
基本流程就是
1：定义(固定)
2：设置连接字符串
3：open
4：取数
Public Sub AddNewX()
Dim cnn1 As ADODB.Connection'定义连接
Dim rstEmployees As ADODB.Recordset'定义记录集
Dim strCnn As String
Dim strID As String
Dim strFirstName As String
Dim strLastName As String
Dim booRecordAdded As Boolean
' 打开连接。
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=;"
cnn1.Open strCnn
' 打开雇员表。
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open "employee", cnn1, , , adCmdTable
' 从用户获取数据，雇员 ID 的格式必须为：
' 名、中间名和姓的三个首字母，
' 五位数字，以及性别标识 M 或 F。
' 例如，Bill Sornsin 的雇员 ID 为：B-S55555M。
strID = Trim(InputBox("Enter employee ID:"))
strFirstName = Trim(InputBox("Enter first name:"))
strLastName = Trim(InputBox("Enter last name:"))
' P只在用户输入姓和名之后进行。
If (strID <> "") And (strFirstName <> "") _
And (strLastName <> "") Then
rstEmployees.AddNew
rstEmployees!emp_id = strID
rstEmployees!fname = strFirstName
rstEmployees!lname = strLastName
rstEmployees.Update
booRecordAdded = True
