| |
|
|
| | Dim db As DAO.Database ' Current database
Dim sSQL As String ' Append query.
' Append record to the temp audit table.
Set db = DBEngine(0)(0)
sSQL = "INSERT INTO " & sAudTmpTable & " ( audType, audDate, audUser ) " & _
"SELECT 'Delete' AS Expr1, Now() AS Expr2, NetworkUserName() AS Expr3, " & sTable & ".* " & _
"FROM " & sTable & " WHERE (" & sTable & "." & sKeyField & " = " & lngKeyValue & ");"
db.Execute sSQL, dbFailOnError
Exit_AuditDelBegin:
Set db = Nothing
Exit Function | |
| |
| |
| |
|
|
| | http://www.databasejournal.com/features/msaccess/article.php/1490571/From-DAO-to-ADO.htm
вот, как мне кажется, очень хорошая ссылочка. Давно такую искала. Может кому понадобится.  | |
| |
| |
| |
|
|
| | Только у меня такое бывает, наверное 
Думала, что все получится. А исправила все необходимые строки и все равно пишет: неверный user-type.
Значит я что-то изменила не так.
А как изменить, чтобы работало?  | |
| |
| |
| |
|
|
| | логично такую информацию искать на сайте производителя 
http://msdn.microsoft.com/en-us/library/aa201984(office.10).aspx
http://support.microsoft.com/kb/225048 | |
| |
| |
| |
|
|
| | Dim sSQL As String ' Append query.
' Append record to the temp audit table.
sSQL = "..." - ваше выражение подойдет и для ADO, а у оператора LIKE другой синтаксис.
CurrentProject.Connection.Execute sSQL
ЗЫ. Чтоб народ понял, что вы сделали не так, надо ЭТО показать.  | |
| |
| |
| |
|
|
| | Ясенько. Спасибо | |
| |
| |
