→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
Создание интерфейса для базы данных 
Автор Сообщение
Начинающий

Регистрация: 14.05.2012
Сообщения: 1
Языки:
Специальность:

Репутация: 0 [ ? ]
Сообщение Создание интерфейса для базы данных
Добрый день!
Я выполняю курсовую работу, одним из этапов является создание базы данных.
У меня возникла проблема с фильтром^///
как осуществить фильтр по разным параметрам, если у них различный тип данных?
вот код модуля:
(заранее спасибо))

Public Fn_db As String

Public name_tabl As String, name_tabl_z As String
Public name_field As String '

Public filtr_name_field As String, filtr_u As String

Public tr_t As Boolean
Public Sub load_db(frm As Form, name_tab$)
On Error Resume Next

Fn_db = App.Path & "\db1.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"

frm.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fn_db
frm.Adodc1.RecordSource = "SELECT * FROM " & name_tab
Set frm.DataGrid1.DataSource = frm.Adodc1
frm.Adodc1.CommandType = adCmdText
frm.Adodc1.CursorType = adOpenDynamic
frm.Adodc1.Refresh

frm.Combo1.Clear
For i = 0 To frm.DataGrid1.VisibleCols - 1
frm.DataGrid1.Columns(i).Width = 2300
frm.Combo1.AddItem frm.DataGrid1.Columns(i).Caption
Next
frm.Combo1.ListIndex = 0
frm.Label2 = frm.DataGrid1.VisibleRows '
frm.Label3 = name_tab
End Sub

Public Sub del_zap(frm As Form, name_tab$)

If frm.DataGrid1.ApproxCount > 1 Then
On Error GoTo err

If MsgBox("Ïîäòâåðäèòå îïåðàöèþ óäàëåíèÿ", vbExclamation + vbYesNoCancel) = vbYes Then
frm.Adodc1.Recordset.Delete
End If
Exit Sub
err: load_db frm, name_tab
Else
MsgBox "No del"
End If
End Sub

Public Sub dob_zap(frm As Form, name_tab$)
On Error GoTo err
frm.Adodc1.Recordset.AddNew
Exit Sub
err: load_db frm, name_tab
End Sub


Public Sub filtr(frm As Form, name_tab As String, name_field_s As String, name_str As String)
'On Error GoTo err
If Len(name_str) > 0 Then
frm.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Fn_db

If name_field_s = "âðåìÿ" Then
frm.Adodc1.RecordSource = "SELECT * FROM " & name_tab & " WHERE " & name_field_s & " = " & Val(name_str) '& "'"
Else
frm.Adodc1.RecordSource = "SELECT * FROM " & name_tab & " WHERE " & name_field_s & " = '" & name_str & "'"
End If

Set frm.DataGrid1.DataSource = frm.Adodc1
frm.Adodc1.CommandType = adCmdText
frm.Adodc1.CursorType = adOpenDynamic
frm.Adodc1.Refresh

For i = 0 To frm.DataGrid1.VisibleCols - 1
frm.DataGrid1.Columns(i).Width = 2300
Next
On Error GoTo 4
If frm.DataGrid1.Text = "" Then
4 MsgBox "íå íàéäåíî íè÷åãî" & vbLf & "ïîïðîáóéòå èçìåíèòü êðèòåðèé ", vbInformation, ""
load_db frm, name_tabl
End If

Else
MsgBox "ïàðàìåòð ôèëüòðà íå ìîæåò áûòü Null"
End If
Exit Sub
err:
MsgBox "error"
Exit Sub
End Sub

Public Sub upd(frm As Form)
On Error Resume Next
frm.Adodc1.Recordset.Update
frm.Adodc1.Refresh
End Sub


14.05.2012 14:30
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: Google [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»