ник: час
я вот так влот перемещаю таблицу из одной базы в другую
Public Function FUN_TRANSFER_TABLE_AND_DATA(STR_BAZA_NAME As String, STR_TABLE_NAME As String)
'Создание Таблицы в базе с переносом всех данных исходной таблицы
Dim AdoxCat_TABLE As Object
Dim AdoxTbl_TABLE As Object
Set AdoxCat_TABLE = CreateObject("ADOX.Catalog")
Set AdoxTbl_TABLE = CreateObject("ADOX.Table")
AdoxCat_TABLE.ActiveConnection = "provider=Microsoft.JET.OLEDB.4.0;" & _
"data source=" & STR_BAZA_NAME
' Проверка наличия таблицы в базе
For Each AdoxTbl_TABLE In AdoxCat_TABLE.Tables
If AdoxTbl_TABLE.Name = STR_TABLE_NAME Then
MsgBox "Таблица " & STR_TABLE_NAME & " уже имеется в базе " & STR_BAZA_NAME
End If
Next
GLB_CONNECTION.Execute "SELECT " & STR_TABLE_NAME & ".* INTO " & STR_TABLE_NAME & " IN '" & STR_BAZA_NAME & "' From " & STR_TABLE_NAME & " "
Set AdoxCat_TABLE = Nothing
Set AdoxTbl_TABLE = Nothing
End Function
И все чекбоксы превращаются в 0 и -1
вместо квадратиков
можно это как то поправить????
Я уж молчу, что все каптион полей пропадают и все их описания тожа...........
шъёрт знает что творится