连接access数据库

[kangguiwen]

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_sell.mdb"
rs.Open "224-", cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.ColWidth(0) = 100
End Sub

我想连接 用个assecc数据库，为什么老是出现找不到数据成员或方法

[zzyong00]

rs.Open "224-", cn, adOpenKeyset, adLockOptimistic
224-是什么？

[blgzz]

有没有在通用部分定义rs和cn啊，这个变量必须定义
Dim rs As ADODB.Recordset

[blgzz]

rs需要定义，不能直接使用。
Dim rs As ADODB.Recordset

[blgzz]

rs需要定义，不能直接使用。
Dim rs As ADODB.Recordset

[kangguiwen]

哦，好的，我试一试

[kangguiwen]

我想问一下，怎么能将该access数据库中的那个小区指标显示出来呢

[cbm6666]

楼主是QQ上发信息的那位吗 ? 解决了吗?

[cbm6666]

'******Microsoft ActiveX Data Objects 2.5 Library
'添加MsHflexgrid1
'.mdb放在程序同路径下

Option Explicit
Public conn As New ADODB.Connection '定义数据连接字符串
Public rs As New ADODB.Recordset '定义记录集
Dim appdisk$, db$, trecord%, i%, j%
Private Sub Form_Load()
appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & appdisk & "bwscale.mdb"
conn.CursorLocation = adUseClient
conn.Open db '打开数据库连接
rs.Open "bwcust", conn, adOpenKeyset, adLockPessimistic ''打开记录集
trecord = rs.RecordCount
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
MSHFlexGrid1.rows = trecord + 1
Call Showtitle
If trecord > 0 Then rs.MoveFirst: Call Showall
End Sub

Private Sub Showtitle() '显示栏位标题
MSHFlexGrid1.Cols = 4
MSHFlexGrid1.Row = 0: MSHFlexGrid1.Col = 0
For i = 0 To 3
MSHFlexGrid1.Col = i
MSHFlexGrid1.CellAlignment = 4 '4=居中 0=靠左 6=靠右
Select Case i
Case 0
MSHFlexGrid1.Text = "厂商编号"
MSHFlexGrid1.ColWidth(i) = 1400
Case 1
MSHFlexGrid1.Text = "厂商名称"
MSHFlexGrid1.ColWidth(i) = 1400
Case 2
MSHFlexGrid1.Text = "负责人"
MSHFlexGrid1.ColWidth(i) = 1200
Case 3
MSHFlexGrid1.Text = "联 系 人"
MSHFlexGrid1.ColWidth(i) = 1200
End Select
Next i
End Sub

Private Sub Showall() '列出所有数据
rs.MoveFirst
For i = 0 To trecord - 1
MSHFlexGrid1.Row = i + 1
For j = 0 To 3
MSHFlexGrid1.Col = j
MSHFlexGrid1.CellAlignment = 0
MSHFlexGrid1.Text = IIf(Trim(rs.Fields(j)) <> "", rs.Fields(j), "")
Next j
rs.MoveNext
Next i
rs.MoveFirst
MSHFlexGrid1.Row = 1: MSHFlexGrid1.Col = 0
MSHFlexGrid1.TopRow = 1
End Sub

[kangguiwen]

已经解决的差不多了。不过还有细节问题呢。
谢谢了cbm666

[zdingyun]

昨天已答复4次,CSDN出错,不见答贴.
新建数据工程,VB会自动引用必要的DLL文件.
5楼说的没错:
rs.Open "224-", cn, adOpenKeyset, adLockOptimistic
224-是什么？
在你代码中增加2句:
Dim sql
sql="select * from tabel"
将
rs.Open "224-", cn, adOpenKeyset, adLockOptimistic
改为:
rs.Open sql, cn, adOpenKeyset, adLockOptimistic

[kangguiwen]

给大家解释一下，224- 是access数据库中的一个表名

[kangguiwen]

大家好，我按你们的做法好是不行
有知道的高手，给一段代码，谢谢了

[zdingyun]

Private Sub Form_Load() 
    Dim cn As New ADODB.Connection 
    Dim rs As New ADODB.Recordset 
    Dim sql
    sql = "select * from 224-" 
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_sell.mdb" 
    rs.Open sql, cn, adOpenKeyset, adLockOptimistic 
    Set MSHFlexGrid1.DataSource = rs 
    MSHFlexGrid1.ColWidth(0) = 100 
End Sub 

[zdingyun]

sql = "select * from 224-" 是结构化查询语句，改变语句写法可实现各类查询。

[kangguiwen]

12 楼的代码我试过了，不行，MSHFlexGrid1.ColWidth(0) = 100 总回出现包错 方法未找到或者是数据成员

[zdingyun]

我这儿调试这些代码正常，未报错。实在不行，那你将该行代码注释掉看看是否报错。
该行代码用来设置MSHFlexGrid1的最左列的宽度的。

[anlog]

在工程菜单下选择，引用，选择其中的Microsoft Access 11.0 Object Library (若果你安装的是Office2003)就可以使用你原来的代码了。

[kangguiwen]

为什么老是包错呢，昏

[Tiger_Zhao]

rs.Open "SELECT * FROM [224-]", cn, adOpenKeyset, adLockOptimistic

[kangguiwen]

谢谢各位了，终于连接上了饿