Zdravým.
Som tu novy a dufam že mi pomôžete.
Učim sa programovať vo Visual Basic 6.0 podla lekcii a tu je môj problem:
1. Vytvoril som si databázu cez M. Office Access 2007 vo verzii 200 formátu .mdb. Tu je screen:
Dal som jej názov Databáza a názov tabulky je Kontakty.
2. Vytvoril som si nasledovny formulár vo VB 6.0
3. Vlastnosti Data1 som nastavil:
Connect na Access 2000
Database name som zadal umiestnenie databázy
RecordSource som dal Kontakty (názov tabulky v databáze)
Vlastnosti TextBoxov:
DataSource na Data1 (pri všetkých TextBoxoch)
DataField som dal na každy TexBox iny ( TextBox1 - Identifikácia, 2 - Meno...)
3. Napísal som kód:
Kód:
Private Sub Command1_Click()
retazec = InputBox("Zadej hledaný text", "Hladanie")
Data1.Recordset.Index = "Meno"
Data1.Recordset.Seek "=", retazec
If Data1.Recordset.NoMatch = True Then MsgBox ("Výsledok nenájdený")
End Sub
A tu nastáva problém. Ked kliknem na Hladať tak mi a zadam hladaný výraz do inputboxu a potvrdim tak mi vyskoči chyba:
Skusal som ešte zmeniť vlastnosť Data1 RecordsetType na 0 - Table ale potom mi vyskoči zase ina chyba:
LUDIA POMOC!!!!
Vopred vám dakujem za odpovede
