> Автор: HEON
> по 1 вопросу. выдется ошибка ISAM. порылась в инете, нужно включить библиотеку.
> можете сказать, какую именно? хотя JET вроде бы включен был.
>
> а вот код, который есть для вставки в MS SQL:
>
> private Sub INSERT_SQL(row_ins as integer)
>
> Dim Conn As ADODB.Connection
> Dim strSQL As String
> Dim ConnString As String
>
> Set Conn = New ADODB.Connection
>
> ConnString = "Provider=Microsoft.Jet.OLEDB.4.0; DataSource ='D:\! Work_Karina\Конверсия\Кросс-курсы.xls';
> Extended Properties = Excel 8.0"
Только этим кодом, ты пытаешся вставить не в MSSQL а в файл Екселя
Ну и я-бы пользовался бы транзакциями и параметрами.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
Public Sub Execute()
Dim sErrDesc As String
Dim erCur As ADODB.Error
Dim i As Long
On Error GoTo labErr
cmd.CommandType = adCmdText
For i = 0 To cmd.Parameters.Count - 1
Debug.Print cmd.Parameters.Item(i).Name & " = " & CStr(IIf(IsNull(cmd.Parameters.Item(i).Value), "Null",
cmd.Parameters.Item(i).Value))
Next i
cn.BeginTrans
cmd.Execute
cn.CommitTrans
Exit Sub
labErr:
On Error Resume Next
If cn.State <> adStateClosed Then
cn.RollbackTrans
' For i = 0 To cmd.Parameters.Count - 1
' Debug.Print cmd.Parameters.Item(i).Name & " | "; '.Delete 0
' Next i
End If
sErrDesc = "" 'Err.Description & " <-> "
' Get the ADO errors.
If cn.Errors.Count > 0 Then
For Each erCur In cn.Errors
sErrDesc = sErrDesc & erCur.Source & ": " & erCur.Description & " | "
Next erCur
sErrDesc = Replace(sErrDesc, vbLf, " | ", , , vbTextCompare)
Else
sErrDesc = Err.Description
End If
Call OutputErrorMessage(sErrDesc, , , "Execute", cmd.CommandText)
With Err
.Raise vbObjectError + 1 , "Execute", sErrDesc
End With
End Sub
--
С уважением Горбонос Игорь Леонидович
Posted via ActualForum NNTP Server 1.4
