Форум АНТИЧАТ - Связь Excel 2007 и mysql 5.0

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)

- - Связь Excel 2007 и mysql 5.0 (https://forum.antichat.xyz/showthread.php?t=52017)

Связь Excel 2007 и mysql 5.0

Доброго вам дня!!!!
Подскажите пожалуйста как создать Связь Excel 2007 и mysql 5.0?
проблема в том. Что в excele ведуться записи и их надо дублировать на сервер в интернете
на котором стоит mysql.
Зарание спасибо за ответы :)

Установи сервак и сделай востановление, по через xls, там есть такая опция.

а какой сервак установить ?

Поставь на сервер phpMyAdmin (хотя он, наверное, уже стоит). создай через него БД.

В экселе сохрани нужную таблицу в формате CSV, и мипотрируй ее через phpMyAdmin в новую базу

понимаете таблицы в excele большые и мне надо просто вставлять под конец дня
последнии 10 записей

Microsoft SQL Server 2003

2 Student :)

Трудно эти 10 строк скопировать в пустую таблицу и импортировать в мускул?

2 [cash]
Читай внимательнее, что спрашивают

конечно :) потомучто етим будут заниматься девчонки

Цитата:

Сообщение от Student :)

конечно :) потомучто етим будут заниматься девчонки

Если они справятся с выделением того, что нужно отправить и нажатием на кнопку отправить, то можно использовать этот макрос :D

Код:

Sub SendByPOST()

  query = ""

  For RowCount = 1 To Selection.Rows.Count

    If RowCount > 1 Then

      query = query + Chr(13)

    End If

    For ColumnCount = 1 To Selection.Columns.Count

    If ColumnCount > 1 Then

      query = query + Chr(9)

    End If

      query = query + Selection.Cells(RowCount, ColumnCount).Text

    Next ColumnCount

  Next RowCount

    

  Set xmlReq = CreateObject("Microsoft.XMLHTTP")

  xmlReq.Open "POST", "http://localhost/xls.php", False

  xmlReq.setRequestHeader "Content-Type", "text/xml"

  xmlReq.setRequestHeader "Connection", "Close"

  xmlReq.setRequestHeader "Content-length", Len(query)

  xmlReq.send (query)

  If (xmlReq.Status >= 200 And xmlReq.Status < 300) Then

    MsgBox "Done"

  Else

    MsgBox "Filed: " + CStr(xmlReq.Status)

  End If

End Sub

А получать результат примерно так:

Код:

<?

$f=fopen('xls.txt', 'a');

fwrite($f, @file_get_contents('php://input')."\n");

fclose($f);

?>

Думаю, как связать PHP и SQL ты и сам разберёшься...

А довать доступ клиентской машине напрямую к SQL думаю лишнее, а-то девочки до пароля добираться и подкорректируют твою базу, а-то и шелл зальют :D

hidden - спасибо будем разбираться с меня +

а можно чтоб и название колонок отправлялось ?

Хз как понять, где там имена колонок, можно номер первой выделенной колонки передать, а дальше они должны по порядку идти, ведь у тебя имена колонок постоянные

Замени
query = ""
на
query = "First column:" & Selection.Column & Chr(13)

А КАК сжелать чтоб ещё отправлялись имена колонок?
пример (a=1 B=петя и тд

Вот

Код:

Sub SendByPOST()

  query = ""

  For RowCount = 1 To Selection.Rows.Count

    If RowCount > 1 Then

      query = query & Chr(13)

    End If

    For ColumnCount = 1 To Selection.Columns.Count

    If ColumnCount > 1 Then

      query = query & Chr(9)

    End If

      query = query & ActiveSheet.Cells(1, Selection.Column + ColumnCount - 1).Text & ":" & Selection.Cells(RowCount, ColumnCount).Text

    Next ColumnCount

  Next RowCount

    

  Set xmlReq = CreateObject("Microsoft.XMLHTTP")

  xmlReq.Open "POST", "http://localhost/xls.php", False

  xmlReq.setRequestHeader "Content-Type", "text/xml"

  xmlReq.setRequestHeader "Connection", "Close"

  xmlReq.setRequestHeader "Content-length", Len(query)

  xmlReq.send (query)

  If (xmlReq.Status >= 200 And xmlReq.Status < 300) Then

    MsgBox "Done"

  Else

    MsgBox "Filed: " & xmlReq.Status

  End If

End Sub

Подразумевается что имена колонок народятся в первой строке, иначе "...Cells(1, Sele..." тут нужно указать строку.