Я только начинаю делать программу и нужна ваша помощь.
Идея заключается в том, чтобы из файла Exclel с уже заполненными данными вытащить только определенные столбцы и записать их в таблицу Access. И после этого отобразить данные в таблице DataGrid или MSFlexGrid. Помогите, кто может. Буду рад любой помощи.

Ципихович Эндрю,

Хорошо, объясню по другому. Есть файл Excel. В нем есть столбцы и строки заполненные данными. Нужно, чтобы программа "вытащила" все данные (либо по условию), допустим из столбца "B" и вставила в 1 столбец таблицы Access. Потом этот столбец с данными из Access отобразился в 1 столбце таблицы DataGrid или MSFlexGrid. Вот. Если нужно будет могу еще подробнее написать))

Ципихович Эндрю,

Ципихович Эндрю,

Взаимную беседу следует вести так, чтобы каждый из собеседников извлек из нее пользу, приобретая больше знаний.(с)

Вопрос остается открытым...

Shocker.ProShocker.ProBobax012
Непонятно только одно, собственно среда выполнения. VB6?
C SQL знакомы? с ADO знакомы?
В принципе, чтобы понять, можно ли это сделать запросом - дайте образец файла. Не все данные можно корректно будет получить через ODBC.

Среда выполнения VB 6.0. С SQL и ADO немного знаком, но только азы. Если нужно будет, придется разбираться, деваться не куда))

Пример файла прикрепляю. Ниже форма VB 6.

Bobax012,

Shocker.ProBobax012,

посмотрите для начала 9847080 этот пример
тут показано, как через SQL работать с таблицей экселя.
Единственное - он там работает с текущей книгой ThisWorkbook, а вам требуется ее предварительно открыть.
соответственно, с аксессовсой таблицей работать так же, как с любой БД, да и примеров тут полно.

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

Мне нужно, чтобы пользователь не касался ни базы Access ни данных Excel (т.е. не проводил ни каких манипуляций, типа открыть Access, открыть Excel), он считал данные из Excel перекинул в Access и все. Если так не получается, то хотя бы пересохранить файл из Excel в текстовый формат с разделителем в виде табуляции. И считывать данные оттуда (но это, если не получается с Excel)

qwerty112Bobax012Мне нужно, чтобы пользователь не касался ни базы Access ни данных Excel (т.е. не проводил ни каких манипуляций, типа открыть Access, открыть Excel), он считал данные из Excel перекинул в Access и все.
...



Проверил, все работает. Спасибо ОГРОМНЕЙШЕЕ!!! Действительно, очень выручили.

Теперь будем выводить данные в MSFlexGrid))

Решил проверить на ввод любых данных в столбцы, т.е. в поле, где вводят текст ввожу цифры. И тут заметил, что если в поле с текстом последним введено число, то отражаются только числовые значения, а, если текст, то соответственно текстовые. Как можно сделать, чтобы отражались все данные. Именно все данные. Т.к. в дальнейшем будут добавляться столбцы в которых будут добавляться любые дынные (текстовые, либо числовые). Может быть, это делается не программно, просто не правильно организовал таблицу Access? Всем столбцам присвоил тип "Текстовый". Подскажите, где ошибся.

Нашел другой способ в интернете:


Dim excel_app As Object
Dim excel_sheet As Object
Dim max_row As Integer
Dim max_col As Integer
Dim row As Integer
Dim col As Integer
Dim conn As ADODB.Connection
Dim statement As String
Dim new_value As String

Screen.MousePointer = vbHourglass
DoEvents

' Создаём приложение Excel.
Set excel_app = CreateObject("Excel.Application")

' Если хотите, чтобы Excel был видимым, то раскомментируйте следующую строку.
' excel_app.Visible = True

' Открываем таблицу Excel.
excel_app.Workbooks.Open FileName:=txtExcelFile.Text

' Проверяем версию.
If Val(excel_app.Application.Version) >= 8 Then
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If

' Узнаём строку и колонку, которые использовались последний раз.
max_row = excel_sheet.UsedRange.Rows.Count
max_col = excel_sheet.UsedRange.Columns.Count

' Открываем базу данных Access.
Set conn = New ADODB.Connection
conn.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & txtAccessFile.Text & ";" & _
"Persist Security Info=False"
conn.Open

' Делаем цикл по строкам таблицы Excel,
' пропуская первую строку, которая содержит
' заголовки колонок.
For row = 2 To max_row
' Составляем инструкцию INSERT.
statement = "INSERT INTO Books VALUES ("
For col = 1 To max_col
If col > 1 Then statement = statement & ","
new_value = Trim$(excel_sheet.Cells(row, _
col).Value)
If IsNumeric(new_value) Then
statement = statement & _
new_value
Else
statement = statement & _
"'" & _
new_value & _
"'"
End If
Next col
statement = statement & ")"

' Выполняем инструкцию INSERT.
conn.Execute statement, , adCmdText
Next row

' Закрываем базу данных.
conn.Close
Set conn = Nothing

' Если хотите, чтобы Excel остался запущенным, закомментируйте строки
' Close и Quit.

' Закрываем Книгу, сохраняя изменения.
excel_app.ActiveWorkbook.Close True
excel_app.Quit

Set excel_sheet = Nothing
Set excel_app = Nothing

Screen.MousePointer = vbDefault
MsgBox "Copied " & Format$(max_row - 1) & " values."




Но, в процессе выполнения выходит ошибка, и жалуется на строку
conn.Execute statement, , adCmdText
Либо просто виснет, так, что приходится через диспетчер завершать программу.
Что можно с этим сделать, чтобы все работало нормально?

mds_worldBobax012,
если в запросе, в описании файла Excel, вы поставите описание IMEX=1, то все данные будут восприниматься как текстовые


Спасибо, помогло!!!!