Хочу добавить в базу значение при добавления выдаёт ошибку "
Either BOF or EOF is True, or the current record has been deleted; the operation requested by the application requires a current recordPrivate " на строке "rs.Fields("Login").Value = "qqq""

Sub Form_Load()
Dim Cmd As ADODB.Command
Dim Prm As ADODB.Parameter
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set Cmd = New ADODB.Command
Set rs = New ADODB.Recordset

rs.LockType = adLockBatchOptimistic
rs.CursorType = adOpenDynamic

cn.CursorLocation = adUseClient

cn.Open "Provider=MSDASQL.1;Persist Security Info=False;Mode=Read;Extended Properties='DSN=Paradox;DBQ=C:\1;DefaultDir=C:\1;DriverId=538;FIL=Paradox 7.X;MaxBufferSize=2048;PageTimeout=600;';Initial Catalog=C:\1"

Set Cmd.ActiveConnection = cn

rs.Open "SELECT * FROM Userpass.db", cn
'rs.Source = aaa_
rs.ActiveConnection = cn
rs.Fields("Login").Value = "qqq"



Set DataGrid1.DataSource = rs

End Sub

Да это я случайно зацепил их.


Теперь:
cn.Open "Provider=MSDASQL.1;Persist Security Info=False;Mode=Read;Extended Properties='DSN=Paradox;DBQ=C:\1;DefaultDir=C:\1;DriverId=538;FIL=Paradox 7.X;MaxBufferSize=2048;PageTimeout=600;';Initial Catalog=C:\1"
rs.ActiveConnection = cn
rs.Open "SELECT * FROM Userpass.db", cn
rs.AddNew
rs.Fields("Login").Value = "qqq"
rs.Update
Set DataGrid1.DataSource = rs

И ошибка "При выполненении многошаговой операции"

Блин не выходит пишет "Слишком мало параметров.Требуется 1"

s1.ActiveConnection = cn
s1.CommandType = adCmdText
s1.CommandText = "insert into userpass(login) values(qqq)"
s1.Execute

Требовал "Обновляемый запрос в оперыции"Я написал:

s1.CommandText = "insert into userpass(Login) values('qqq') update "

Начал просить (;) в конце SQL запроса:

s1.CommandText = "insert into userpass(Login) values('qqq') update; "

Не помогает.

s1.CommandText = "insert into userpass(Login) values('qqq')"

"В операции должен использоваться обновляемый запрос"

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim s1 As New Command
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.LockType = adLockBatchOptimistic
rs.CursorType = adOpenDynamic
cn.CursorLocation = adUseClient
cn.Open "Provider=MSDASQL.1;Persist Security Info=False;Mode=Read;Extended Properties='DSN=Paradox;DBQ=C:\1;DefaultDir=C:\1;DriverId=538;FIL=Paradox 7.X;MaxBufferSize=2048;PageTimeout=600;';Initial Catalog=C:\1; UserID = Alexey; Password = COOLagin"
rs.ActiveConnection = cn
rs.Open "SELECT * FROM Userpass.db", cn, adOpenDynamic
s1.ActiveConnection = cn
s1.CommandType = adCmdText
s1.CommandText = "insert into userpass(Login) values('qqq')"
s1.Execute

Без вариантов.Не катит

Melkiades CoolaginБез вариантов.Не катит
Молодой человек, может вы все-таки книжки почитаете?
Вам и так уже все здесь разжевали.

А что вы думаете поможет.Я смотрю вам Melkiades не помогает, а я же тоже человек.Вывод..........