vb连接sqlserver

来源：百度知道 编辑：UC知道 时间：2024/05/29 05:54:41
小弟刚开始学SQL SERVER数据库!安装后创建了一个表!请问在VB6.0中如何用ADODC控件连接访问该表呢?请给个代码!谢谢
我要访问的不是ACCESS的MDB数据库!而是SQLSERVER数据库!请先教我直接用控件连接的方法先!用代码的方法以后再学!谢谢
我试过用属性的方法!连接成功,但数据源及显示哪个表不知道在哪可以设置!

将ADODC控件拖到窗体上后,在控件上点击右键,会弹出右键菜单,点击菜单最后一项"属性",则会弹出设置界面,其中就包括了怎样连接sql,不需要写代码

Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sqlstr As String
Dim i As Integer

sqlstr = "SELECT * FROM hxzzwinfo " & srrq
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset

con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\hxzzdb.mdb"
con.Open
rs.ActiveConnection = con
rs.LockType = adLockOptimistic
rs.CursorLocation = adUseClient
rs.CursorType = adOpenDynamic
rs.Open sqlstr

If rs.BOF And rs.EOF Then
pagen = 0
cpagen = 0
i = MsgBox("读取数据失败", vbInformation, "日出库单")
Exit Sub
End If

rs.PageSize = rownd
pagen = rs.PageCount
rs.AbsolutePage = cpagen