您的位置:首页 > 数据库

如何使用ADO对象连接SQL Server数据库

2008-12-26 23:37 375 查看
Private Sub Command1_Click()
Dim cn As Connection
Dim rs As Recordset
Dim str As String
Set cn = New ADODB.Connection
str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=RSDAGLXT;Data Source=."
cn.Open str
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "人事档案信息表", cn
Set MSHFlexGrid1.DataSource = rs
End Sub
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: