| |
|
|
| | Доброго всем вечера, подскажите пожалуйста как составить запрос на экспорт в эксель, на Аксе делали так
Dim Zapros As Object
Set Zapros = CurrentDb.OpenRecordset
как в Vb это написать? | |
| |
| |
| |
|
|
| | А как Вы связь с таблицами устанавливаете???
Точнее посредством чего данные из базы достаёте???
Если ADO тогда как то так:
Public GLB_CONNECTION As ADODB.Connection ' подключение к базе
Public Function FUN_GET_GLOBAL_CONNECTION() As Boolean
' Подключение к базе
Dim conn_str As String
Dim ADOErr As ADODB.Error
Set GLB_CONNECTION = New ADODB.Connection
FUN_GET_GLOBAL_CONNECTION = False
' проверить подключение(Соединение)
If GLB_CONNECTION.State = adStateOpen Then
FUN_GET_GLOBAL_CONNECTION = True '"Соединение - уже установлено !"
Exit Function
End If
GLB_CONNECTION.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:" _
& "Database Password=;Data Source=" & GLB_PATCH_CONNECTION
' проверить подключение(Соединение)
If GLB_CONNECTION.State = adStateOpen Then
FUN_GET_GLOBAL_CONNECTION = True ' соединение установлено
Else
Call MsgBox("Соединение с базой не установлено !", _
vbOKOnly + vbCritical, _
"Проверка!!!")
FUN_GET_GLOBAL_CONNECTION = False
End If
End Function
|
| |
| |
| |
| |
|
|
| | посредством database1DataSet | |
| |
| |
| |
|
|
| | Круто, а поподробнее - кодом ошараште...... | |
| |
| |
| |
|
|
| | возможно я не правильно выражаюсь, в vb2008 на сколько я понимаю конструктором можно это делать... | |
| |
| |
| |
|
|
| | Конструктором - это хорошо.
Но, то, о чём ты задумался - придётся делать кодом.
Тогда в коде после имени нужного контрола ставь точку и из списка доступных свойст и методов выбирай нужные и оперируй ими.
Например Recordset у кого он имеется - берё этот набор записей и работаем с ним как с обычным набором фильтры, поиск перебор и т.д. | |
| |
| |
