Всякий раз когда импортирую из excelя у меня комп встаёт.

Как эти бороться?

Повесил сообщение после запроса , мол Ок! все нормально.
все сообщение выводит. После можно закрывать Access т.е. происходит
зависание.

Как понять?
kedzoна какой строке происходит зависание?

запрос выполняется доконца!
никаких error. В профайл тоже глянул, ничего ненажожу.
преобразовал ade и нифига та же хрень.

'****************************************************************
'Microsoft SQL Server 2000
'Visual Basic file generated for DTS Package
'File Name: C:\Documents and Settings\Àäìèíèñòðàòîð\Ìîè äîêóìåíòû\New Package3.bas
'Package Name: New Package
'Package Description:
'Generated Date: 26.08.2004
'Generated Time: 13:07:48
'****************************************************************

Option Explicit
Public goPackageOld As New DTS.Package
Public goPackage As DTS.Package2
Function Main()
DoCmd.Echo True, "ñîçäàåì ïàêåò DTS"
Set goPackage = goPackageOld

goPackage.Name = "New Package"
goPackage.WriteCompletionStatusToNTEventLog = False
goPackage.FailOnError = False
goPackage.PackagePriorityClass = 2
goPackage.MaxConcurrentSteps = 4
goPackage.LineageOptions = 0
goPackage.UseTransaction = True
goPackage.TransactionIsolationLevel = 4096
goPackage.AutoCommitTransaction = True
goPackage.RepositoryMetadataOptions = 0
goPackage.UseOLEDBServiceComponents = True
goPackage.LogToSQLServer = False
goPackage.LogServerFlags = 0
goPackage.FailPackageOnLogFailure = False
goPackage.ExplicitGlobalVariables = False
goPackage.PackageType = 0

DoCmd.Echo False

'---------------------------------------------------------------------------
' create package connection information
'---------------------------------------------------------------------------
DoCmd.Echo True, "ñîçäàåì connect1"
Dim oConnection As DTS.Connection2

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

oConnection.ConnectionProperties("Persist Security Info") = True
oConnection.ConnectionProperties("User ID") = "sa"
oConnection.ConnectionProperties("Initial Catalog") = "MedSprav"
oConnection.ConnectionProperties("Data Source") = "SERVER-2005"
oConnection.ConnectionProperties("Application Name") = "DTS Designer"

oConnection.Name = "Microsoft OLE DB Provider for SQL Server"
oConnection.ID = 1
oConnection.Reusable = True
oConnection.ConnectImmediate = False
oConnection.DataSource = "SERVER-2005"
oConnection.UserID = "sa"
oConnection.ConnectionTimeout = 60
oConnection.Catalog = "MedSprav"
oConnection.UseTrustedConnection = False
oConnection.UseDSL = False

'If you have a password for this connection, please uncomment and add your password below.
'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing

'------------- a new connection defined below.
'For security purposes, the password is never scripted

Set oConnection = goPackage.Connections.New("SQLOLEDB")

oConnection.ConnectionProperties("Persist Security Info") = True
oConnection.ConnectionProperties("User ID") = "sa"
oConnection.ConnectionProperties("Initial Catalog") = "MedSprav"
oConnection.ConnectionProperties("Data Source") = "SERVER-2005"
oConnection.ConnectionProperties("Application Name") = "DTS Designer"

oConnection.Name = "Microsoft OLE DB Provider for SQL Server 2"
oConnection.ID = 2
oConnection.Reusable = True
oConnection.ConnectImmediate = False
oConnection.DataSource = "SERVER-2005"
oConnection.UserID = "sa"
oConnection.ConnectionTimeout = 60
oConnection.Catalog = "MedSprav"
oConnection.UseTrustedConnection = False
oConnection.UseDSL = False

'If you have a password for this connection, please uncomment and add your password below.
'oConnection.Password = "<put the password here>"

goPackage.Connections.Add oConnection
Set oConnection = Nothing
DoCmd.Echo False
'---------------------------------------------------------------------------
' create package steps information
'---------------------------------------------------------------------------
DoCmd.Echo True, "ñîçäàåì connect2"

Dim oStep As DTS.Step2
Dim oPrecConstraint As DTS.PrecedenceConstraint

'------------- a new step defined below

Set oStep = goPackage.Steps.New

oStep.Name = "DTSStep_DTSExecuteSQLTask_1"
oStep.Description = "Execute SQL Task: undefined"
oStep.ExecutionStatus = 4
oStep.TaskName = "DTSTask_DTSExecuteSQLTask_1"
oStep.CommitSuccess = False
oStep.RollbackFailure = False
oStep.ScriptLanguage = "VBScript"
oStep.AddGlobalVariables = True
oStep.RelativePriority = 3
oStep.CloseConnection = False
oStep.ExecuteInMainThread = False
oStep.IsPackageDSORowset = False
oStep.JoinTransactionIfPresent = False
oStep.DisableStep = False
oStep.FailPackageOnError = False

goPackage.Steps.Add oStep
Set oStep = Nothing

'---------------------------------------------------------------------------
' create package tasks information
'---------------------------------------------------------------------------

'------------- call Task_Sub1 for task DTSTask_DTSExecuteSQLTask_1 (Execute SQL Task: undefined)



Call Task_Sub1(goPackage)
DoCmd.Echo False
'---------------------------------------------------------------------------
' Save or execute package
'---------------------------------------------------------------------------

'goPackage.SaveToSQLServer "(local)", "sa", ""
DoCmd.Echo True, "Çàïóñêàåì T-Sql"
goPackage.Execute
goPackage.Uninitialize
DoCmd.Echo False
'to save a package instead of executing it, comment out the executing package line above and uncomment the saving package line
Set goPackage = Nothing

Set goPackageOld = Nothing

End Function


'------------- define Task_Sub1 for task DTSTask_DTSExecuteSQLTask_1 (Execute SQL Task: undefined)
Public Sub Task_Sub1(ByVal goPackage As Object)

Dim oTask As DTS.Task
Dim oLookup As DTS.Lookup

Dim oCustomTask1 As DTS.ExecuteSQLTask2
Set oTask = goPackage.Tasks.New("DTSExecuteSQLTask")
Set oCustomTask1 = oTask.CustomTask

oCustomTask1.Name = "DTSTask_DTSExecuteSQLTask_1"
oCustomTask1.Description = "Execute SQL Task: undefined"
oCustomTask1.SQLStatement = "INSERT " & vbCrLf
oCustomTask1.SQLStatement = oCustomTask1.SQLStatement & "INTO FAMILII" & vbCrLf
oCustomTask1.SQLStatement = oCustomTask1.SQLStatement & " (Ôàìèëèÿ)" & vbCrLf
oCustomTask1.SQLStatement = oCustomTask1.SQLStatement & "SELECT sostav$.Ôàìèëèÿ" & vbCrLf
oCustomTask1.SQLStatement = oCustomTask1.SQLStatement & "FROM sost2...sostav$ sostav$ LEFT OUTER " & vbCrLf
oCustomTask1.SQLStatement = oCustomTask1.SQLStatement & "JOIN" & vbCrLf
oCustomTask1.SQLStatement = oCustomTask1.SQLStatement & " FAMILII ON sostav$.Ôàìèëèÿ = FAMILII.Ôàìèëèÿ" & vbCrLf
oCustomTask1.SQLStatement = oCustomTask1.SQLStatement & "WHERE (FAMILII.F IS NULL)" & vbCrLf
oCustomTask1.SQLStatement = oCustomTask1.SQLStatement & "GROUP BY sostav$.Ôàìèëèÿ" & vbCrLf
oCustomTask1.SQLStatement = oCustomTask1.SQLStatement & "HAVING " & vbCrLf
oCustomTask1.SQLStatement = oCustomTask1.SQLStatement & " (NOT (sostav$.Ôàìèëèÿ IS NULL))"
oCustomTask1.ConnectionID = 1
oCustomTask1.CommandTimeout = 0
oCustomTask1.OutputAsRecordset = False

goPackage.Tasks.Add oTask
Set oCustomTask1 = Nothing
Set oTask = Nothing

End Sub

HummerПолный буратино:)

...Это в коде написано...


нашёл что нибудь в коде?

Код ни я придумал, а создан программно в SQL SERVER 2000.
Пакет DTS.

HummerУважаемый, ну и где здесь Аксес? Что зависает, какой конекшн? Дали скрипт вб файла для дтс и что дальше?

Тогда не Х.. говорить что происходит закрытие Accessa ? или что-то вроде.

Из Accessa его запускаю , работает, выполняет до конца ,
то последней строки. И после этого кода я прописал Msgbox об удачном выполнении. Всё здорово. ПОСЛЕ зависае-е-ет.

HummerЗависает Аксес как приложение? Сам процесс виснет и ничего нельзя сделать?


Можно только закрыть Access.

[quot Hummer]Запустить дтс можно с помощью dtsrun Utility
quot]

Этот путь пройден, работает.

Причем зависание происходит не только при выполнении трансформации через
DTS, также происходит через обычного INSERT FROM применяя
OPENQUERYSOURSE.

приложение Access зависает.
глянул в диспетчер задач, там выполняется.
Было бы - не отвечает, другое дело.

Что он не довыполнил ?

HummerПолный буратино:)

Код импорта из Екселя в Аксес выполняется в Аксесе - почему нужно закрывать Аксес? Это в коде написано, а он не закрывается? Где тогда код?

А про преобразовал в аде - вообще говорит о том, что вы дуб, а не клён:)

Вы же сами просили.
и понятно что код дтс нипричем.

после запуска кода есть только msgbox. все далее End Sub.

http://www.hiprog.com/forum/forum.asp?action=show&id=2&messid=65094&fullview=0

http://www.hiprog.com/forum/forum.asp?action=show&id=2&messid=65126&fullview=0