Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.05.2011, 21:12   #1
akellaukr
Пользователь
 
Регистрация: 22.05.2011
Сообщений: 12
По умолчанию не заносятся данные

stroka = "INSERT INTO Terminus.dbo.Standards (Code_st, Validity, ValidityDate, СancellationDate, ISO, KGS, UDK, OKSTU, Name_ua_st, Name_ru_st, Name_en_st, Nakaz, Predisl, GrpName_id, Keywords, " _
& " Developers, DeveloperOrg, Bibliography, ChangeFor) values (" & Code_st & ", " & Validity & ", " & ValidityDate & ", " & CancellationDate & ", " & ISO & ", " & KGS & ", " & UDK & ", " & OKSTU & ", " & Name_ua_st & ", " & Name_ru_st & ", " & Name_en_st & ", " & Nakaz & ", " & Predisl & ", " & GroupName_ua & ", " & Keywords & ", " & Developers & ", " & developersOrg & ", " & Bibliography & ", " & ChangeFor & ")"
DoCmd.RunSQL (stroka)

Все данные собирает, проверал через print, но в базу данных MYSQL не заносит... помогите пожалуйста... очень надо... срочно....
akellaukr вне форума Ответить с цитированием
Старый 31.05.2011, 07:55   #2
Swatch
Форумчанин
 
Регистрация: 05.07.2009
Сообщений: 209
По умолчанию

Я не знаю как с MYSQL, но на SQL сервер данные из access можно записать так:
Код:
Dim rst as new adodb.recordset
Dim ProviderName,ServerName,DatabaseName as string
Dim cnn as adodb.connection
Set cnn = New ADODB.Connection
ProviderName = "SQLOLEDB"
ServerName = "имя сервера"
DatabaseName = "имя БД"
With cnn
       .Provider = ProviderName
       .Properties("Data Source").Value = ServerName
       .Properties("Initial Catalog").Value = DatabaseName
       .Properties("User ID").Value = "имя пользователя"
       .Properties("Password").Value = "пароль"
       .Open
    End With
rst.open "INSERT INTO Terminus.dbo.Standards (Code_st, Validity, ValidityDate, СancellationDate, ISO, KGS, UDK, OKSTU, Name_ua_st, Name_ru_st, Name_en_st, Nakaz, Predisl, GrpName_id, Keywords, " & _
"Developers, DeveloperOrg, Bibliography, ChangeFor) values (" & Code_st & ", " & Validity & ", " & ValidityDate & ", " & CancellationDate & ", " & _
"" & ISO & ", " & KGS & ", " & UDK & ", " & OKSTU & ", " & Name_ua_st & ", " & Name_ru_st & ", " & Name_en_st & ", " & Nakaz & ", " & Predisl & ", " & _
"" & GroupName_ua & ", " & Keywords & ", " & Developers & ", " & developersOrg & ", " & Bibliography & ", " & ChangeFor & ")", cnn

Последний раз редактировалось Swatch; 31.05.2011 в 08:34.
Swatch вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не заносятся уроки в базу sava4aev PHP 3 08.05.2011 15:08
Не заносятся пути для всех файлов после FindFirst artemavd Общие вопросы Delphi 8 02.12.2010 10:20
Данные по столбцам - упорядочить данные к друг другу PetroD Microsoft Office Excel 10 07.08.2010 12:30
Данные не туда заносятся... panuta Microsoft Office Excel 3 06.06.2010 05:19
Не заносятся данные в Edit с первого раза Shouldercannon Общие вопросы Delphi 2 13.04.2010 21:07