【文件属性】:
文件名称:VB连接sqlserver数据库
文件大小:1KB
文件格式:VBP
更新时间:2012-09-27 05:24:30
数据库
Dim s As String
Dim rs As New ADODB.Recordset
s = "Driver={SQL Server}; Database=trsip; UID=sa; PWD=oallserver; Server=10.47.1.12 "
conn.ConnectionString = s
conn.Open
txtsql = "select top 1 * from book"
Set rs = New ADODB.Recordset
rs.Open txtsql, conn, _
adOpenKeyset, _
adLockOptimistic
网友评论
- 感觉还行,只是感觉用着不是特别顺手