Доступ к данным Access

[fizik_leha]

Необходимо из БД Access содержащей 4 столбца
достать эти данные и поместить в 4 массива для последующего анализа...
Каким образом это осущестивить.
Буду очень благодарен за фрагмент работающего кода...

[Sirik]

Вот, что-то типа этого

Код: Выделить всё

Private DB As DAO.Database
Private RS As DAO.Recordset
Private sqlk as String
  Set DB = DAO.OpenDatabase(Name_Base)
'  sqlk = "SELECT * FROM [таблица] WHERE [поле1] = '" + значение2 + "' AND [поле2] = '" + значение2 + "' ;"
'твой запрос
  Set RS = DB.OpenRecordset(sqlk)
  Do Until RS.EOF
      твой массив1() = RS.Fields("поле1")
      твой массив2() = RS.Fields("поле2")
      твой массив3() = RS.Fields("поле3")
      твой массив4() = RS.Fields("поле4")
    RS.MoveNext
  Loop


Не звбудь сделать ссылку на Microsoft DAO 3.6 Object Library

[fizik_leha]

а почему sqlk заремлен?
Насколько я понял тут описывается таблица с двумя полями...
У меня все учебники используют ADO... Какая разница между адо и дао?

[Sirik]

1. sqkl - протто так
2. да нет, сколько угодно. я для примера дал 2 поля.
3. Разницы я не знаю, спроси у Знатоков

[fizik_leha]

cmd = "provider=microsoft.jet.OLEDB.3.51'" & _
"Data sourse=" & _
"C:\Documents and Settings\All Users\Документы\Japan Cars.mdb"


Ругается на данную строчку ... говорит не может поставщика найти...
у меня подозрение что не может найти данную версию джета...
Где поспотреть список провайдеров?

[Sirik]

Может проблемма в том, что в пути не должно быть пробелов (если конечно проблемма только в этом)

[tyomitch]

Параметры с пробелами афаик нужно заключать в фигурные скобки {}

[GSerg]

Не, там разделителями считаются только ; и =. Так что действительно нет такого провайдера

[fizik_leha]

Так что у меня vb Кривой?
Или там эти провайдеры еще как то подключать надо?

[fizik_leha]

Вылечилось зпменой ' на ;

Теперь ругается на не интсалированный ISAM...

А это еще что за зверь и с чем его едят... в смысле где его достать...

[ta_gena]

Если используется Access 2000 и выше, то нужно утановить
Service pack 5 Для Visual Studion 6.0.
А лучше скачать с www.microsoft.com Service Pack 6 и ADO 2.8.

Считать всю таблицу в массив можно так:

Код: Выделить всё

Dim aRecords() As Variant
aRecords = rs.GetRows()


[fizik_leha]

Обновил до SP6. Те же грабли...
короче кидаю код...

Private cn As ADODB.Connection
Private rs As ADODB.Recordset

Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

End Sub

Private Sub Form_Load()
Dim cmd As String
Dim sql As String

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

cmd = "Provider=microsoft.jet.OLEDB.3.51;" & _
"Data sourse=" & _
"C:\Documents and Settings\All Users\Документы\Japan Cars.mdb"
'Provider=Microsoft.Jet.OLEDB.3.51;Password=""
Set cn = New ADODB.Connection
With cn
.ConnectionString = cmd
.Open
ВОТ ЗДЕСЬ РУГАЕТСЯ...
End With

sql = "select * Kod"

Set rs = New ADODB.Recordset
With rs
.Open sql, cn, adOpenForwardOnly, adLockReadOnly
Do While Not rs.EOF
LstCOD.AddItem rs("Kod")
rs.MoveNext
Loop
.Close
End With
Set rs = Nothing
cn.Close
Set cn = Nothing

End Sub

[ta_gena]

Попробуй лечше так:

Код: Выделить всё

Private Sub Form_Load()
  Dim sql As String
  Dim rs As New ADODB.Recordset

  sql = "SELECT Kod FROM TableName"
  With rs
    .Open sql, _
          GetConnection("C:\Documents and Settings\All Users\Äîêóìåíòû\Japan Cars.mdb"), _
          adOpenForwardOnly, _
          adLockReadOnly

    Do Until .EOF
      LstCOD.AddItem rs("Kod")
      .MoveNext
    Loop
    .Close
  End With
  Set rs = Nothing
End Sub

Private Function GetConnection(sFileName As String) As ADODB.Connection
  Dim db As New ADODB.Connection
  With db
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = sFileName
    .Open
  End With
  Set GetConnection = db
  Set db = Nothing
End Function


[Konst_One]

Код: Выделить всё

cmd = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data source=C:\Documents and Settings\All Users\Документы\Japan Cars.mdb;User ID=Admin;Password=;"


[fizik_leha]

to Konst_One: Спасибо помогло!

Теперь ругается на запрос
sql = "select * japan_cars"
Говорит, что пропущен оператор...
и еще что в sql ставить надо? имя таблицы или имя поля таблицы?

[GSerg]

Если japan_cars - название поля, то ты пропустил запятую. А если название таблицы, то пропущено FROM.

[Konst_One]

Код: Выделить всё

select * from japan_cars


учите SQL

[fizik_leha]

Ураа заработала!!!! Всем БОЛЬШОЕ спасибо.

Подскажите пожалуйста где достать хелп по VB 6.0, а то у меня кривая версия без хелпа...

[fizik_leha]

Народ никто не знает почему listcount выдает отрицательное количество записей?



Private Sub Form_Load()
Dim cmd As String
Dim sql As String

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

'cmd = "Provider=microsoft.jet.OLEDB.4.0;" & _
' "Data sourse=" & _
' "C:\Documents and Settings\All Users\Документы\Japan_Cars.mdb"
'Provider=Microsoft.Jet.OLEDB.3.51;Password=""
cmd = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data source=C:\Documents and Settings\All Users\Документы\Japan Cars.mdb;User ID=Admin;Password=;"
Set cn = New ADODB.Connection
With cn
.ConnectionString = cmd
.Open
End With

sql = "select * from japan_cars"

Set rs = New ADODB.Recordset
With rs
.Open sql, cn, adOpenForwardOnly, adLockReadOnly
Do While Not rs.EOF
LstCOD.AddItem rs("Kod")
rs.MoveNext
Loop
.Close
End With
Set rs = Nothing
cn.Close
Set cn = Nothing
Text1.Text = LstCOD.ListCount
End Sub