Простои вопрос по VB

[Tala]

У меня несложнии вопрос, но как говорится заклинило.
Почему след. код не работает? Всем заранее спасибо.

With adoRS
db.Execute "DELETE from MyTable WHERE format(ID," & Chr(34) & "mm/dd/yyyy HH:MM:SS" & Chr(34) & ")=" & varD
.MoveNext
If .EOF Then .MoveLast
End With

varD - DateTime variable

Я пробовала без форматирования:
db.Execute "DELETE from tcustomerdocuments WHERE ID =" & varD
Но разници никакои,не работает.

[katit]

У меня несложнии вопрос, но как говорится заклинило.
Почему след. код не работает? Всем заранее спасибо.

With adoRS
db.Execute "DELETE from MyTable WHERE format(ID," & Chr(34) & "mm/dd/yyyy HH:MM:SS" & Chr(34) & ")=" & varD
.MoveNext
If .EOF Then .MoveLast
End With

varD - DateTime variable

Я пробовала без форматирования:
db.Execute "DELETE from tcustomerdocuments WHERE ID =" & varD
Но разници никакои,не работает.

Какой-то очень загадочный код... с очень загадочным циклом...

Может опишете что делать надо?

[Tala]

У меня несложнии вопрос, но как говорится заклинило.
Почему след. код не работает? Всем заранее спасибо.

With adoRS
db.Execute "DELETE from MyTable WHERE format(ID," & Chr(34) & "mm/dd/yyyy HH:MM:SS" & Chr(34) & ")=" & varD
.MoveNext
If .EOF Then .MoveLast
End With

varD - DateTime variable

Я пробовала без форматирования:
db.Execute "DELETE from tcustomerdocuments WHERE ID =" & varD
Но разници никакои,не работает.

Какой-то очень загадочный код... с очень загадочным циклом...

Может опишете что делать надо?

Процедура удаляет вибранную запись:


Sub Delete_Record()

If adoRS.RecordCount > 0 Then
If MsgBox("Are you absolutely sure you want to delete this record?", vbYesNo) = vbYes Then

With adoRS
Dim varD As Date
varD = .Fields("ID")
db.Execute "Delete from MyTable WHERE ID=#" & varD & "#"
.MoveNext
If .EOF Then .MoveLast
End With


Else
MsgBox "Delete operation canceled!", vbInformation
End If

Else
MsgBox "There is no record to delete.", vbInformation
End If

[katit]

Процедура удаляет вибранную запись:


Sub Delete_Record()

If adoRS.RecordCount > 0 Then
If MsgBox("Are you absolutely sure you want to delete this record?", vbYesNo) = vbYes Then

With adoRS
Dim varD As Date
varD = .Fields("ID")
db.Execute "Delete from MyTable WHERE ID=#" & varD & "#"
.MoveNext
If .EOF Then .MoveLast
End With


Else
MsgBox "Delete operation canceled!", vbInformation
End If

Else
MsgBox "There is no record to delete.", vbInformation
End If

Нда... А что за база такая? (В SQL Сервере кавычками выделяется)
И почему надо этот рекордсет использовать ? А не ту-же таблицу рекордсет держит?

[Tala]

Нда... А что за база такая? (В SQL Сервере кавычками выделяется)
И почему надо этот рекордсет использовать ? А не ту-же таблицу рекордсет держит?

Что в SQL кавичками виделяется? DateTime Variable?

Мне нужно удалить строку по ключу, ключ -ето DateTime переменная.
Рекордсет не содержит всю таблицу.

[katit]

Что в SQL кавичками виделяется? DateTime Variable?

Мне нужно удалить строку по ключу, ключ -ето DateTime переменная.
Рекордсет не содержит всю таблицу.

Да, в SQL Сервер дата выделяется кавычками.

Еще надо привести к одинаковому типу.

DELETE FROM A WHERE MyDate = CAST('asasd' AS DateTime)
or better
DELETE FROM A WHERE CAST(MyDate.... ) = 'asasas'
(check CAST for dates in Books online)

Но это не все. Если знаете КАК рекордсет был открыт то лучше делать удаление единичной командой.

[gazum]

Я думаю, что рекордсет открыт таким образом, что независимое удаление row из таблицы, удаляет его и из рекордсета тоже. И после этого уже никаких .MoveNext или .MoveLast не получается. Можно, прежде чем удалять row, переложить нужные данные из рекордсета в массив или локальные переменные. А если уж очень хочется хранить всё в рекордсете, используйте disconnected recordset, который нечувствителен к изменениям в датабазе.

[Tala]

Вначале хотелось сделать проще:

With adoRS

.Delete
.UpdateBatch
.MoveNext

If .EOF Then .MoveLast

Но ето ничего не дало.

Error: Multiple-step operation generated errors. Check each status value.

[katit]

Вначале хотелось сделать проще:

With adoRS

.Delete
.UpdateBatch
.MoveNext

If .EOF Then .MoveLast

Но ето ничего не дало.

Error: Multiple-step operation generated errors. Check each status value.

Ну это все равно не правильно..

Приведите пожалуйста код где открывается рекордсет.

[GlebZ]

Вообще-то в SQLServer дата в таком формате идёт: yyyy-mm-dd hh:mm:ss.000
А что это за FORMAT в SQLServer? Там, вообще-то CONVERT или CAST.

[Tala]

Вообще-то в SQLServer дата в таком формате идёт: yyyy-mm-dd hh:mm:ss.000
А что это за FORMAT в SQLServer? Там, вообще-то CONVERT или CAST.

Я сразу не сказала, что данние не на SQL Server, а на Visual Foxpro.

With db
.ConnectionString = "Driver={Microsoft Visual FoxPro Driver};UID=;SourceDB=Documents.dbc;SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
.CursorLocation = adUseClient

.Open
End With
.
.
.
.
adoRS.Open "SELECT * FROM MyTable WHERE customer_number = " & txtCustFields(0).Text & " ORDER BY " & docOrder, db, adOpenKeyset, adLockBatchOptimistic

[katit]

adoRS.Open "SELECT * FROM MyTable WHERE customer_number = " & txtCustFields(0).Text & " ORDER BY " & docOrder, db, adOpenKeyset, adLockBatchOptimistic

А почему не написать что-то типа:
Connection.Execute "DELETE FROM MyTable WHERE customer_number="....

Оно и удалит то что вы циклом пытаетесь удалить.
Если проблема в локинге то можно закрыть рекордсет и потом открыть обратно.

А с синтаксис для FoxPro не помогу..

[Sergey___K]

Вы уверены, что ID это именно то поле, что должно сравниваться с датой?
И кстати, "не работает", это что?

[GlebZ]

Я сразу не сказала, что данние не на SQL Server, а на Visual Foxpro.

Тоды - уой!

[Tala]

А почему не написать что-то типа:
Connection.Execute "DELETE FROM MyTable WHERE customer_number="....

Оно и удалит то что вы циклом пытаетесь удалить.
Если проблема в локинге то можно закрыть рекордсет и потом открыть обратно.

А с синтаксис для FoxPro не помогу..

Ето не поможет, потому что customer_number не уникален. Вместо однои записи удалятся все записи для клиента.

[katit]

Ето не поможет, потому что customer_number не уникален. Вместо однои записи удалятся все записи для клиента.

Так попробуйте для интереса перед удалением закрыть рекордсет и потом открыть. Чтобы точно знать что он не блокирует запись.

[Alex_L]

А почему не написать что-то типа:
Connection.Execute "DELETE FROM MyTable WHERE customer_number="....

Оно и удалит то что вы циклом пытаетесь удалить.
Если проблема в локинге то можно закрыть рекордсет и потом открыть обратно.

А с синтаксис для FoxPro не помогу..

Ето не поможет, потому что customer_number не уникален. Вместо однои записи удалятся все записи для клиента.

Тогда
Dim smth as Long
Dim smth1 as Date
Connection.Execute "DELETE FROM MyTable WHERE customer_number="smth & "AND MyDate = " smth1

[Tala]

Тогда
Dim smth as Long
Dim smth1 as Date
Connection.Execute "DELETE FROM MyTable WHERE customer_number="smth & "AND MyDate = " smth1

Я не могу понять, где в запросе ошибка в синтаксисе. При запуске я получаю либо Missing operand либо Syntax error.

db.Execute "Delete from MyTable WHERE ID= " & varD

[Alex_L]

Тогда
Dim smth as Long
Dim smth1 as Date
Connection.Execute "DELETE FROM MyTable WHERE customer_number="smth & "AND MyDate = " smth1

Я не могу понять, где в запросе ошибка в синтаксисе. При запуске я получаю либо Missing operand либо Syntax error.

db.Execute "Delete from MyTable WHERE ID= " & varD

Dim DbCommand as String
DbCommand="Delete from MyTable WHERE ID= " & varD
db.Execute DbCommand
Посмотрите в Debug Mode какое значение имеет DbCommand

Выполните команду в самой базе.

[Tala]

Всем спасибо за ответи.


Я нашла как поступить. Мне надоело возитьста с DateTime типом данних. Поетому я поменяла в Table designer DateTime на Character. После етого все стало работать великолепно, как по мановению волшебнои палочки.