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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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