Databaza – Visual Basic – Fórum – Programujte.com

Zdravim pracujem na databaze, kde vyberam jednotlive polozky v comboboxe, vsetko funguje ako ma, pokial sa v databazi nenajdu duplikaty. Ked otvorim combobox tak ukaze oba duplikaty, vyberiem jeden a vzdy do ostatnych textboxov priradi ostatne polozky iba z prveho duplikatu ktory najde... dufam ze sa chapeme prilozim par kodov

 Form_load

Private Sub Form_Load()
Set oRS = New ADODB.Recordset

strDbAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\"cesta k suboru"\Zamestnanci.mdb;Persist Security Info=False"

sqlq = "SELECT * FROM KANCELARIA ORDER BY ZAMESTNANEC"
oRS.Open sqlq, strDbAccess, adOpenForwardOnly, adLockReadOnly

If Not oRS.EOF Then
    Do Until oRS.EOF
        Combo1.AddItem oRS("Zamestnanec")
        oRS.MoveNext
    Loop
End If
oRS.Close
End Sub

Combo1_click

Private Sub Combo1_Click()

sqlq = "SELECT * FROM KANCELARIA ORDER BY ZAMESTNANEC = '" & Combo1.Text & "'"
oRS.Open sqlq, strDbAccess, adOpenForwardOnly, adLockReadOnly
If Not oRS.EOF Then
    Text1.Text = oRS("BYDLISKO")
    Text2.Text = oRS("DATUM_NARODENIA")
    Text3.Text = oRS("TELEFONNE_CISLO")
    Text4.Text = oRS("E-MAIL")
End If
oRS.Close

End Sub

Chcel by som to spravit tak ze program bude vyberat polozky z databazy nielen podla mena ale napr. aj podla ID len to uz neviem skombinovat aby to fungovalo, vzdy som sa dostal iba k chybe

pracujem vo VB6

Můžeš to udělat třeba takto ... každá položka Comboboxu by měla mít ještě ItemData, do které si uložíš ID toho zaměstnance a pak po výběru nepracuješ v SQL příkazu se jménem, ale právě s tím uložený ID.

ospravedlnujem sa ze po takom case opat pisem ale akosika nebol cas

tak mam nacitane ID zamestnanca len neviem ako ho pretypovat lebo vzdy sa dopracujem ku chybe... v databaze je ID Zamestnanca ako auto-number, takze ked ho pouzijem namiesto mena tak mam type mismatch

sqlq = "SELECT * FROM KANCELARIA WHERE ID='" ........

no presne pri tomto mam tuto chybu

data type mismatch in criteria expression

A dáváš tam to ID, které sis před tím uložil do ItemData pro každou položku v Comboboxu? Takže něco jako

sqlq = "SELECT * FROM KANCELARIA WHERE ID=" & Combo1.ItemData(Combo1.ListIndex)

presne tak to mam a hadze tu chybu, myslim ze to bude v type premennej kedze je tam mismatch, len netusim ako mam to ID_Zamestnanca pretypovat

tu je aj kod

Public oRS As New ADODB.Recordset
Public strDbAccess As String

Private Sub Combo1_Click()

sqlq = "SELECT * FROM ZAMESTNANCI WHERE ID_Zamestnanca = '" & Combo1.ItemData(Combo1.ListIndex) & "'"
oRS.Open sqlq, strDbAccess, adOpenForwardOnly, adLockReadOnly

If Not oRS.EOF Then
    Text1.Text = oRS("DATUM_NARODENIA")
    Text2.Text = oRS("TEL_CISLO")
    Text3.Text = oRS("BYDLISKO")
    Text4.Text = oRS("E-MAIL")
End If

oRS.Close
End Sub

Private Sub Form_Load()
Set oRS = New ADODB.Recordset

strDbAccess = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\cesta k suboru\Zamestnanci.mdb;Persist Security Info=False"

sqlq = "SELECT * FROM ZAMESTNANCI ORDER BY MENO"
oRS.Open sqlq, strDbAccess, adOpenForwardOnly, adLockReadOnly

If Not oRS.EOF Then
    Do Until oRS.EOF
        Combo1.AddItem oRS("Meno")
        Combo1.ItemData(Combo1.NewIndex) = oRS.Fields("ID_Zamestnanca").Value
        oRS.MoveNext
    Loop
End If
oRS.Close
End Sub

Přetypovává se samozřejmě ItemData na nějaký hezký celočíselný typ při tvorbě toho sql dotazu.

Zasláno z mobilního telefonu.

no len kde to mam pretypovat, samozrejme viem ako ale neviem kde lebo nech skusam co len chcem vzdy som na chybe

Něco jako:

sqlq = "SELECT * FROM ZAMESTNANCI WHERE ID_Zamestnanca = " & CInt(Combo1.ItemData(Combo1.ListIndex))

tam som to skusal ako prve, ale stale to hadze rovnaku chybu

No ... vzhledem k tomu, že si to nemám šanci vyzkoušet, tak se, prosím tě, hoď celou tu chybu nebo screeshot s tou chybou a řádkem, kde se vyskytla atd. Prostě maximum informací :)

chybu vyhodi ked sa dostane k oznacenemu riadku

Podívej se v ladícím režimu, jaká je hodnota Combo1ListIndex a jaká je pak hodnota příslušného ItemData. Podle všeho je tam prázdný řetězec místo čísla ID (to číslo chyby na to ukazuje). Jo a jen tak mimochodem by si měl mít ten výpis spíše při OnChange, ne? (ComBox1_Change()).

itemdata je 3 to sedi k danemu menu a listindex je 0

tak toto funguje pri clicku, a nemyslim ze pri change by bola nejaka zmena... na change bude v neskorsej faze programu uprava poloziek

tak toto teda nie  

vyhodil som apostrofy a funguje to  

diki moc toto som necakal

ahojte tak narazil som na dalsi problem s ktorym si neviem dat rady

pridal som do databazy vyhladavanie co je samozrejmost tak som to tam musel mat, kod je tu: 

sqlq = "SELECT * FROM ZAMESTNANCI WHERE MENO = '" & Text7.Text & "'"
oRS.Open sqlq, strDbAccess, adOpenForwardOnly, adLockOptimistic

If Not Text7.Text = "" Then
    oRS.MoveFirst
    oRS.Find "MENO='" & Text7.Text & "'"
Else
    Exit Sub
End If

If Not oRS.EOF Then
    Combo1.Text = oRS("MENO")
    Text1.Text = oRS("DATUM_NARODENIA")
    Text2.Text = oRS("TEL_CISLO")
    Text3.Text = oRS("BYDLISKO")
    Text4.Text = oRS("E-MAIL")
    Text5.Text = oRS("ID")
End If
ors.close



vyhladava krasne len problem nastane ked po vyhladani polozku upravim a chcem ju ulozit

dostanem sa na chybu: invalid property array index

ale ked kliknem na combo a vytiahnem si iny zaznam ako som vyhladal tak chybu obidem
 

este tu je kod na ukladanie

chybu vyhadzuje ked sa dostane k prvemu riadku tohto kodu

    sqlq = "SELECT * FROM ZAMESTNANCI WHERE ID = " & Combo1.ItemData(Combo1.ListIndex) & ""
    oRS.Open sqlq, strDbAccess, adOpenForwardOnly, adLockOptimistic
    If Not oRS.EOF Then
        oRS("MENO") = Combo1.Text
        oRS("DATUM_NARODENIA") = Text1.Text
        oRS("TEL_CISLO") = Text2.Text
        oRS("BYDLISKO") = Text3.Text
        oRS("E-MAIL") = Text4.Text
    End If
    oRS.Update
    oRS.Close

Na aktualizaci dat v dB se používá příkaz UPDATE, ne?

hej ved tam mam v tom spodnom to je aktualizacia tam je ors.update :D

ono mi to vsetko funguje vyhladava, uklada, aktualizuje, maze, len aktualizacia prestane ist ked vyhladam nejaku polozku a chcem ju aktualizovat a znova zacne ked rozkliknem combobox

No dobře :) a jsi si jistý, že v tom řádku, kde to hlásí tu chybu, nemá Combo1.ListIndex hodnotu  -1 nebo tak něco?

ked vyhodi chybu tak je -1 a ked funguje spravne tak je od 0 hore

No vidíš, ani to nebolelo :), tak si to ošetři.

no rad by som ale neviem ako, preto pisem :D

No Combo1.ListIndex = -1 znamená, že v ComboBoxu není nic vybraného, to se přece ošetří snadno, ne?

ja som stastny ze som sa dostal do tohto stadia a tu sa fakt neviem pohnut, neviem ako programovo vybrat combo, viem ho vybrat iba pekne rucne rozkliknutim  

skusal som v tom select * from dat namiesto text7.text combo1.text dokonca aj combo1.itemdata ale potom mi neslo vyhladavanie

Možná překvapivě: 

Combo1.ListIndex = 0

stale je tam ta ista chyba skusim to este nejako

EDIT1: skusim sa na to vyspat a zajtra sa pozrem

EDIT2: teraz ked sa na to pozeram tak ten listindex je tam dany na pevno a vzdy mi to hodi iba do jednej danej polozky, listindex je pri kazdej polozke odlisny ide podla abecedy od 0 hore a ked dam 0 tak je to zakazdym prvy zaznam