'连接数据源 Set gAdoCnn = New ADODB.Connection With gAdoCnn .CommandTimeout = "30" .Open strCnn End With
dim cnn as adodb.connection dim rs as adodb.recordset dim ssql as string 建立连接 set cnn = new adodb.connection cnn.open "连接数据库的字符串,如"driver={SQL Server};server=notessv;uid=sa;pwd=49825899;database=htk"" 确定纪录集 ssql "select * from 表名" set rs = new adodb.recordset rs.locktype = 类型 rs.cursortype = 类型 rs.open ssql,cnn,,,adcmdtext 就可以操作记录了
'建立连接字符串 Provider = "Provider=SQLOLEDB.1"
PassWord = "Password=sa"
Persist = "Persist Security Info=True"
UserID = "User ID=sa"
Initial = "Initial Catalog=oa_office"
DataSource = "Data Source=server" '采用注册表处理
strCnn = Provider & ";" & PassWord & ";" & Persist & ";" & UserID & ";" & Initial & ";" & DataSource
'连接数据源
Set gAdoCnn = New ADODB.Connection
With gAdoCnn
.CommandTimeout = "30"
.Open strCnn
End With
dim rs as adodb.recordset
dim ssql as string
建立连接
set cnn = new adodb.connection
cnn.open "连接数据库的字符串,如"driver={SQL Server};server=notessv;uid=sa;pwd=49825899;database=htk""
确定纪录集
ssql "select * from 表名"
set rs = new adodb.recordset
rs.locktype = 类型
rs.cursortype = 类型
rs.open ssql,cnn,,,adcmdtext
就可以操作记录了