32
« : 10 Марта 2002, 13:03:39 »
Вот пример того, как из 1С-а через АДО мона запостить данные (надо учесть, что 1С-ина русские буковки будет кидать в формате вин-1251, а если МуСкуль настроен на коечную пагу - тады надо ещо как-то конвертить):
====================================
Соединение = СоздатьОбъект("ADODB.Connection");
ConnectionString = "DATABASE=test;UID=root;PWD=mypassword;DSN=MySQL";
Соединение.ConnectionTimeOut =600;
Соединение.CursorLocation = 3;
try
Соединение.Open(ConnectionString);
except
Предупреждение("Невозможно установить соединение");
возврат;
EndTry;
Cmd = СоздатьОбъект("ADODB.Command");
Cmd.ActiveConnection = Соединение;
cmd.CommandType = 1;
.....
Cmd.CommandText = "INSERT INTO tovar (FullName, Zena, Kategory, Kod) VALUES (""Печорский веник"", 15, 1, ""0026"")";
cmd.Execute();
Cmd.CommandText = "INSERT INTO tovar (FullName, Zena, Kategory, Kod) VALUES (""Магаданский пряник"", 150, 1, ""0027"")";
cmd.Execute();
====================================
во примерно так....
Просмотр сообщений