Игорь Горбонос
> Автор: strike1
> Теперь другая проблема. ДАнные по ходу не успевают выгрузится в рекордсет после
> запроса к мускулу. Пошагово делаю все нормально, а в реале не работает. Результаты
> запроса на лист XL не попадают.
Данные не могут не выгрузится в рекордсет. Пока запрос не выполнится, в программу не
возвращается управление, разве что работаешь в асинхронном режиме, что вряд ли.
Может проблема с драйвером, и стоит его обновить?
Попробуй показать теперешний вариант кода, потому что у меня запросы из екселя что в
MSSQL, что в Yaffil выполняются нормально, и данные я получаю
--
С уважением Горбонос Игорь Леонидович
Posted via ActualForum NNTP Server 1.4
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.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As _
String, ByVal lpszDst As String) As Long
Sub mysql_query()
Dim path_nam As Object
Dim get_fold As Object
Dim script_nam As Object
Dim path_t As String
path_t = "C:\"
Set path_nam = CreateObject("scripting.filesystemobject")
Set get_fold = path_nam.getfolder(path_t)
Dim test As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim string1 As String
Dim string2 As String
Dim string3 As String
Dim proc
test.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;DATABASE=test;" & _
"User=root;Password=root;PORT=3306;OPTION=3;"
rs.Open "truncate child_all", test
rs.ActiveConnection = Nothing
string1 = "mysqlimport --user=root --password=root "
string2 = "--fields-terminated-by=" & """" & "," & """"
string3 = " test " & """" & "c:\child_all.csv" & """"
prID = Shell("cmd.exe /k" & string1 & string2 & string3, 6 )
' думаю проблема здесь , надо как-то проверить prID, что команда successfully finished
Set rs = New ADODB.Recordset
sour = "select fam, name from child_all"
With rs
.ActiveConnection = test
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = sour
End With
rs.Open sour, test
rs.ActiveConnection = Nothing
ActiveSheet.Range("A2").CopyFromRecordset rs
ActiveSheet.Columns("A:I").AutoFit
killString = "taskkill /F /pid " & prID
Call Shell(killString, vbHide)
path_nam.Deletefile "c:\child_all.csv"
End Sub
Но прежде чем запустить процедуру mysql_query. Есть такой код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
...
With expbook
.SaveAs Filename:="c:\child_all.csv", FileFormat:=xlCSV
.Close savechanges:=False
End With
' или здесь надо сделать проверку на complete, типа что все ОК. Не пойму пока.
...
