'получаем ссылку на набор записей
Set rst = Me.Recordset
With rst
'добавляем запись в табл.
.AddNew
'заполняем поля
.Fields("OTD") = Me.поле1
.Fields("SectionID") = Me.поле2
.Fields("CrName") = Me.поле3
.Fields("CrDate") = Now
End With
внесение данных в Аксесс
1 вопрос, можно ли в ячейки экселя записывать даные из БД аксеса, как?
2 вопрос, как сделать кнопку на форме чтобы по нажатию обрабатывались поля и вносились в базу.( это уже про аксесс)
2 вопрос, как сделать кнопку на форме чтобы по нажатию обрабатывались поля и вносились в базу.( это уже про аксесс)
Цитата:
Originally posted by crazytrain
1 вопрос, можно ли в ячейки экселя записывать даные из БД аксеса, как?
2 вопрос, как сделать кнопку на форме чтобы по нажатию обрабатывались поля и вносились в базу.( это уже про аксесс)
1 вопрос, можно ли в ячейки экселя записывать даные из БД аксеса, как?
2 вопрос, как сделать кнопку на форме чтобы по нажатию обрабатывались поля и вносились в базу.( это уже про аксесс)
1. данные-импорт внешних данных-импортировать данные
создаешь или выбираешь источник ... и вперед!
2. если кратко-получи ссылку на рекордсет и работай с ним через ADO (DAO)
По поводу второго вопроса, можно по подробнее :-) Может есть какая-нибудь ссылка в инете на подробное описание. Мне нужен пример хоть какого-нибудь кода, а там я соображу.
Цитата:
Originally posted by crazytrain
По поводу второго вопроса, можно по подробнее :-) Может есть какая-нибудь ссылка в инете на подробное описание. Мне нужен пример хоть какого-нибудь кода, а там я соображу.
По поводу второго вопроса, можно по подробнее :-) Может есть какая-нибудь ссылка в инете на подробное описание. Мне нужен пример хоть какого-нибудь кода, а там я соображу.
Код:
описание ADO/ADOX можно посмотреть здесь: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/dasdkadooverview.asp
да и встроенная справка вполне информативна ;)
Цитата:
Originally posted by likhobory
описание ADO/ADOX можно посмотреть здесь: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/dasdkadooverview.asp
да и встроенная справка вполне информативна ;)
Код:
'получаем ссылку на набор записей
Set rst = Me.Recordset
With rst
'добавляем запись в табл.
.AddNew
'заполняем поля
.Fields("OTD") = Me.поле1
.Fields("SectionID") = Me.поле2
.Fields("CrName") = Me.поле3
.Fields("CrDate") = Now
End With
Set rst = Me.Recordset
With rst
'добавляем запись в табл.
.AddNew
'заполняем поля
.Fields("OTD") = Me.поле1
.Fields("SectionID") = Me.поле2
.Fields("CrName") = Me.поле3
.Fields("CrDate") = Now
End With
описание ADO/ADOX можно посмотреть здесь: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/dasdkadooverview.asp
да и встроенная справка вполне информативна ;)
Спасибо, так в принципе смысл кода-то понятен. Но я не знаю куда и в какое место его вставлять :-) Даже если и вставляешь куда-нибудь то, ругается "Object variable or With block variable no set". И все, может надо сначало что-то подключить, там какие-нибудь библиотеки?
Цитата:
Originally posted by crazytrain
Спасибо, так в принципе смысл кода-то понятен. Но я не знаю куда и в какое место его вставлять :-) Даже если и вставляешь куда-нибудь то, ругается "Object variable or With block variable no set". И все, может надо сначало что-то подключить, там какие-нибудь библиотеки?
Спасибо, так в принципе смысл кода-то понятен. Но я не знаю куда и в какое место его вставлять :-) Даже если и вставляешь куда-нибудь то, ругается "Object variable or With block variable no set". И все, может надо сначало что-то подключить, там какие-нибудь библиотеки?
угу, microsoft ActiveX Data Objects (ADO)
Самое простое и быстрое решение это открыть обект Excel
в коле Access, сформировать набор записей и воспользоваться методом Excel copyfromrecordset.
dim tmpRec as recordset
dim oExcel as object
Set tmprec = Data1.Database.OpenRecordset("select *from eTable", dbOpenSnapshot)
Set oEx = CreateObject("Excel.Application")
oEx.Application.Workbooks.Open [Имя файла]
oEx.Application.worksheets(1).Activate 'делаем активным нужный нам лист
oEx.Visible = True
oEx.range("A1").CopyFromRecordset tmprec'копируем набор записей
в коле Access, сформировать набор записей и воспользоваться методом Excel copyfromrecordset.
dim tmpRec as recordset
dim oExcel as object
Set tmprec = Data1.Database.OpenRecordset("select *from eTable", dbOpenSnapshot)
Set oEx = CreateObject("Excel.Application")
oEx.Application.Workbooks.Open [Имя файла]
oEx.Application.worksheets(1).Activate 'делаем активным нужный нам лист
oEx.Visible = True
oEx.range("A1").CopyFromRecordset tmprec'копируем набор записей
а можно чуть чуть по подробнее. Как он узнает что именно из этой ячейки и именно в это поле надо вставить данные? в какую базу это вставляется.
Цитата:
Originally posted by likhobory
описание ADO/ADOX можно посмотреть здесь: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/dasdkadooverview.asp
да и встроенная справка вполне информативна ;)
Код:
'получаем ссылку на набор записей
Set rst = Me.Recordset
With rst
'добавляем запись в табл.
.AddNew
'заполняем поля
.Fields("OTD") = Me.поле1
.Fields("SectionID") = Me.поле2
.Fields("CrName") = Me.поле3
.Fields("CrDate") = Now
End With
Set rst = Me.Recordset
With rst
'добавляем запись в табл.
.AddNew
'заполняем поля
.Fields("OTD") = Me.поле1
.Fields("SectionID") = Me.поле2
.Fields("CrName") = Me.поле3
.Fields("CrDate") = Now
End With
описание ADO/ADOX можно посмотреть здесь: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/dasdkadooverview.asp
да и встроенная справка вполне информативна ;)
Смысл кода понятен, но видимо не до конца :-) Куда этот код вставить. Я вот например на форме создал несколько полей, кнопку. И хочу чтобы по нажатию на кнопку данные из полей попадали в нужную таблицу, или лучше даже разные поля в разные таблицы. И поля скажем очищались, чтобы можно было заносить следующую запись. Подскажите плиз!!! :-)
Я написал этот код как ответ на первый вопрос
Цитата:
Originally posted by Sergei Popov
Я написал этот код как ответ на первый вопрос
Я написал этот код как ответ на первый вопрос
А на последний ответить не можете? я же новичек