SAP + MySQL

klabukov

Пономарев Артем написал:

Для начала на клиентской машине либо на сервере приложений должен быть установлен сооответсвующий драйвер.

Потом надо разобраться с корректным синтаксисом строки коннекта. Например для файрберда она выглядит так:

Code:

connectionstring ='DRIVER=Firebird/InterBase(r) driver;PWD=masterkey;UID=SYSDBA;DBNAME=удалённыйсервер/порт:load;'.

Причем важна правильность каждого символа

Ну а дальше все просто:

Code:

INCLUDE ole2incl.

DATA: connection type ole2_object,
           connectionstring(500).

...

CREATE OBJECT connection 'adodb.connection'.

IF sy-subrc NE 0.
  EXIT.
ENDIF.

SET PROPERTY OF connection 'ConnectionString' = connectionstring.

IF sy-subrc NE 0.
  EXIT.
ENDIF.

CALL METHOD OF connection 'Open'.

IF sy-subrc NE 0.
  EXIT.
ENDIF.

....

Драйвер установили, connectionstring написали, вроде как даже соединение открылось... А через как теперь данные взять оттуда?? Как к таблицам обратиться?? :oops:

подскажите пожалуйста...

vga

И тут наступает самое интересное. Нужно научиться работать с RecordSet.

http://www.microsoft.com/technet/prodte ... x?mfr=true

klabukov

Благодарю Вас!!! :roll:

vga

Может это еще поможет.

Code:

*———————————————————————*
* Report Name : YGECICI
*———————————————————————*
* Author : Mehmet Avşar
* Location : @Altunizade - Uskudar / Istanbul
* Date / Time : 05 Jan 2007
* Subject : Upload Data From MS Accsess Into an Internal Table
*———————————————————————*
REPORT YGECICI MESSAGE-ID 00
No Standard Page Heading
Line-Size 200
Line-Count 65.

INCLUDE Ole2incl.

DATA: Con TYPE Ole2_Object,
Rec TYPE Ole2_Object.

DATA SQL(1023).

DATA: BEGIN OF SPL OCCURS 0,
VAL(1023),
END OF SPL.

DATA: BEGIN OF I1 OCCURS 0,
F1 TYPE I ,
F2(10),
F3(10),
END OF I1.

IF Con-Header IS INITIAL OR Con-Handle = -1.
CREATE OBJECT Con ‘ADODB.Connection’.
IF NOT Sy-Subrc = 0.
EXIT.
ENDIF.

CREATE OBJECT REC ‘ADODB.Recordset’.
IF NOT Sy-Subrc = 0.
EXIT.
ENDIF.

ENDIF.

* MDB Connetion Infomations ….
CONCATENATE ‘Provider=’ ”’Microsoft.Jet.OLEDB.4.0”’ ‘;’
INTO SQL.
CONCATENATE SQL ‘Password=’ ””” ‘;’
INTO SQL.
CONCATENATE SQL ‘User ID=’ ”’Admin”’ ‘;’
INTO SQL.
CONCATENATE SQL ‘Data Source=’ ”’C:\Mm.Mdb”’ ‘;’
INTO SQL.
CONCATENATE SQL ‘Mode=’ ”’Share Deny None”’
INTO SQL.

* MDB Connection …
CALL METHOD OF CON ‘Open’
EXPORTING #1 = SQL.
*

* Query (Insert) Statement …
SQL = ‘Insert Into [Test] Values(’.
CONCATENATE SQL ”’A”’ ‘,’ ”’1”’ ‘)’ INTO SQL.

* Query Run …
CALL METHOD OF REC ‘Open’
EXPORTING #1 = SQL
#2 = CON
#3 = ‘1′.

* Query (Select) Statement …
SQL = ‘Select * From[Test]’.

* Query Run …
CALL METHOD OF REC ‘Open’
EXPORTING #1 = SQL
#2 = CON
#3 = ‘1′.

* Selecting MDB Record Into SAP Internal Table …
DO.
CALL METHOD OF REC ‘Getstring’ = SQL
EXPORTING #1 = ‘2′ “Do Not Modify!
#2 = 1 “Do Not Modify!
#3 = ‘|’ “Do Not Modify!
#4 = ‘|’. “Do Not Modify!

IF Sy-SUBRC EQ 0.
REFRESH SPL. CLEAR SPL.
SPLIT SQL AT ‘|’ INTO TABLE SPL.
LOOP AT SPL.
CASE SY-TABIX.
WHEN 1.
I1-F1 = SPL-VAL.
When 2.
I1-F2 = SPL-VAL.
WHEN OTHERS.
I1-F3 = SPL-VAL.
ENDCASE.
ENDLOOP.
APPEND I1. CLEAR I1.
ELSE.
EXIT.
ENDIF.

ENDDO.

* Result Writing …
LOOP AT I1.
WRITE: AT /1(10) I1-F1,
AT (10) I1-F2, AT (20) I1-F3.
ENDLOOP.

* Connetion Close & Destroy
FREE OBJECT Con.
FREE OBJECT Rec.

klabukov

Спасибо!!!!

Очень помогло...

klabukov

Еще вопросик. пишу connectionstring = 'DSN=name'. работает... но берется DSN с моей локальной машины.. На сервере приложений SAP тоже стоит MYSQL драйвер тоже DSN создан. Нельзя ли сделать так чтобы SAP к нему обращался. Если да то подскажите как... :roll:

если без DSN:
Пробую прописать connectionstring так
connectionstring ='Driver=MySQL ODBC 3.51 Driver;Server=ServerName;User ID=user;Password=pas;Database=dName'.
в Delphi рабоает в SAP нет... В чем может быть проблема??

Спасибо за ранее!

vga

Нет, описанный вариант работы с базой идет именно через презентационный сервер (локальную машину). По RFC Вы управляете интерфейсом базы данных на локальной машине. Если Вы хотите использовать прямой коннект к базе с сервера приложений, используйте другой механизм.
Транзакция dbco.
Поиск по форуму по слову EXEC SQL.

klabukov

То есть нужно будет каждому пользователю на локальной машине в таком случае создать DSN?? Админ будет не доволен :roll:

Спасибо за помощь!!

vga

Вообще бы Вам надо с архитектурой приложения разобраться, зачем всем пользователям запускать ваше приложение. Я так понял, Вам нужен интерфейс для импорта данных из mysql в SAP.

klabukov

Вы правильно поняли. Всем не надо. Нужно двум. Только MySql база у нас любит прыгать с сервера на сервер :roll:

. Поэтому Админ попросил сделать так чтоб при переездах базы не приходилось бы менять имена сервера в DSNах у пользователей... Хотя он может это сделать даже не вставая с собственного места

vga

Спростите вашего админа, он в курсе, что такое DNS? Если в курсе, пусть Вам "мозги не парит".

klabukov

Благодарю Вас!!! Который раз меня выручили..

Правила форума

SAP + MySQL

Кто сейчас на конференции