ADO - не сохраняет в базу

@pride · Регистрация: 10.05.2014

Author24 — интернет-сервис помощи студентам

Visual Basic

Dim title(1 To 13), field(1 To 13) As String
Dim aCn As ADODB.Connection
Dim aRs As ADODB.Recordset
s="c:\1.xls"
With aCn
.Provider = "MSDASQL"
.ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & s & ";FirstRowHasNames=0;"
.Open
End With
aRs.Open "select * from db", aCn, adOpenKeyset, adLockOptimistic
[skip] 'расчет данных для ввода в базу
aRs.AddNew title, field
aRs.Update
aRs.Close
aCn.Close

Что неправильного в данном коде?
P.S. ADO 2.8

@~~Busine2009~~ · 16.04.2010, 22:02

Pride,
что за ADO 2.8?

@pride · 19.04.2010, 10:00

Microsoft ActiveX Data Objects 2.8 Library - т.е. использую версию ADO 2.8

@~~Busine2009~~ · 19.04.2010, 22:39

Pride,
понятно, правда я не шарю в этом.

@~~Busine2009~~ Заблокирован
	16.04.2010, 22:02	2
	Pride, что за ADO 2.8? 0

@pride 0 / 0 / 0 Регистрация: 10.05.2014 Сообщений: 8
	19.04.2010, 10:00	3
	Microsoft ActiveX Data Objects 2.8 Library - т.е. использую версию ADO 2.8 0

@~~Busine2009~~ Заблокирован
	19.04.2010, 22:39	4
	Pride, понятно, правда я не шарю в этом. 0

Опции темы