eroare vb cu acces
#1
Posted 11 December 2006 - 11:36
Sunt nou in programare si am de facut un program de gestiune primara la serviciu.
Ma puteti ajuta va rog? La rularea programului imi da mesajul: "Compile error: User-defined type not defined" !!!!! Am postat si codul aici! Multumesc pentru intelegere! Option Explicit Dim dbMyDB As Database Dim rsMyRS As Recordset Private Sub Form_Load() Set dbMyDB = OpenDatabase("C:\Documents and Settings\xxx_yyy\My Documents\accesdb\MyDatabase.mdb") Set rsMyRS = dbMyDB.OpenRecordSet("MyTable", dbOpenDynaset) If Not rsMyRS.EOF Then rsMyRS.MoveFirst Do While Not rsMyRS.EOF lstRecords.AddItem rsMyRS!Name lstRecords.ItemData(lstRecords.NewIndex) = rsMyRS!ID rsMyRS.MoveNext Loop End Sub |
#2
Posted 11 December 2006 - 11:58
Trebuie sa adaugi o referinta la DAO.
Mergi in meniul Project / References si bifeaza "Microsoft DAO 3.6 Object Library" S-ar putea sa nu ai 3.6, bifeaza care o ai. Daca ai mai multe, cea mai recenta. Iti recomand - daca tot esti la inceput - sa nu folosesti DAO ca si metoda de lucru cu baza de date, ci ADO. DAO este dedicat pentru Access, cu ADO poti face conexiuni si la alte tipuri de baze de date, de exemplu MSSQL Server. Succes. |
#3
Posted 11 December 2006 - 12:35
Yoda, on Dec 11 2006, 05:58, said: Trebuie sa adaugi o referinta la DAO. Mergi in meniul Project / References si bifeaza "Microsoft DAO 3.6 Object Library" S-ar putea sa nu ai 3.6, bifeaza care o ai. Daca ai mai multe, cea mai recenta. Iti recomand - daca tot esti la inceput - sa nu folosesti DAO ca si metoda de lucru cu baza de date, ci ADO. DAO este dedicat pentru Access, cu ADO poti face conexiuni si la alte tipuri de baze de date, de exemplu MSSQL Server. Succes. Dupa ce am procedat conform sfatului, acum imi da alta eroare la linia: "Set rsMyRS = dbMyDB.OpenRecordSet("MyTable", dbOpenDynaset)"...practic se blocheaza fara sa faca nimic.Help! |
#5
Posted 12 December 2006 - 09:41
Yoda, on Dec 11 2006, 15:06, said: spune-mi te rog ce eroare iti da. |
#6
Posted 12 December 2006 - 17:53
deCeNu, on Dec 12 2006, 09:41, said: Se bloca pur si simplu...am rezolvat, multumesc,...am dezactivat din Project/References/Microsoft ActiveX Data Objects 2.8 Library si functioneaza...dar ! In listBox imi arata numai inregistrarile din primul camp al tabelului(respectiv prima coloana)...si as avea nevoie si de celelalte campuri ale fiecarei inregistrari...unde sa fac referire la campurile respective in program? ceea ce vrei tu este un listbox cu mai multe coloane. Studiaza si tu un pic msdn si vezi cum se poate face. |
#7
Posted 13 December 2006 - 16:19
deCeNu, on Dec 12 2006, 09:41, said: ..dar ! In listBox imi arata numai inregistrarile din primul camp al tabelului(respectiv prima coloana)...si as avea nevoie si de celelalte campuri ale fiecarei inregistrari...unde sa fac referire la campurile respective in program? De ce nu fololosesti un grid,in loc de lisbox ? |
#8
Posted 14 December 2006 - 11:13
#9
Posted 14 December 2006 - 14:36
#10
Posted 18 December 2006 - 10:27
ionut_y, on Dec 14 2006, 08:36, said: un grid ....este un control care-ti da posibilitatea de a vizualiza si nu numai .. un rezultat query (sa zicem)... sub forma tabelara. Cum ma duc pe o anume inregistrare in tabela? Ex: While Not rsMyRS.EOF rsMyRS.Edit rsMyRS![Phone] = Text1 rsMyRS.Update rsMyRS.MoveNext Wend ...in tabela in coloana Phone cum editez campul din linia 3 ( care are ID 3) ? Multumesc! Edited by deCeNu, 18 December 2006 - 10:31. |
|
#11
Posted 18 December 2006 - 17:24
deCeNu, on Dec 18 2006, 10:27, said: si cum il leg de acel query? Cum ma duc pe o anume inregistrare in tabela? Ex: While Not rsMyRS.EOF rsMyRS.Edit rsMyRS![Phone] = Text1 rsMyRS.Update rsMyRS.MoveNext Wend ...in tabela in coloana Phone cum editez campul din linia 3 ( care are ID 3) ? Multumesc! Pui un dbGrid, un control Data. Pentru dbGrid alegi datasource - numele controlului data Pt controlul data setezi : .DatabaseName = <calea catre fis .mdb> .RecordSource = "SELECT * FROM table1 ......" .Refresh |
#12
Posted 19 December 2006 - 08:17
deCeNu, on Dec 18 2006, 10:27, said: Cum ma duc pe o anume inregistrare in tabela? Controlul data are butoane pt navigarea intre inregistrari. Daca vrei sa filtrEzi inregistrarile ctrlData.RecordSource = "SELECT * FROM table1 ...... WHERE ...." deCeNu, on Dec 18 2006, 10:27, said: ...in tabela in coloana Phone cum editez campul din linia 3 ( care are ID 3) ? ctrlData.Database.Execute("UPDATE.......WHERE id='3'") Edited by ionut_y, 19 December 2006 - 08:20. |
#13
Posted 11 January 2007 - 13:58
ionut_y, on Dec 18 2006, 11:24, said: Pui un dbGrid, un control Data. Pentru dbGrid alegi datasource - numele controlului data Pt controlul data setezi : .DatabaseName = <calea catre fis .mdb> .RecordSource = "SELECT * FROM table1 ......" .Refresh din pacate, la prima linie, dupa ce dau calea catre fisier, da o eroare de genul "compile error : expect expression" !!! iar la dbGrid nu am gasit in proprietati datasource...am gasit numai un camp Recordset... |
#14
Posted 11 January 2007 - 14:00
ionut_y, on Dec 19 2006, 02:17, said: Controlul data are butoane pt navigarea intre inregistrari. Daca vrei sa filtrEzi inregistrarile ctrlData.RecordSource = "SELECT * FROM table1 ...... WHERE ...." ctrlData.Database.Execute("UPDATE.......WHERE id='3'") |
#15
Posted 11 January 2007 - 16:43
|
#16
Posted 12 January 2007 - 16:40
intr-un form...
am list box1 in care listez toate inregistrarile din coloana produs din tabelul produse in al doilea list box imi trebuie valoarea/valorile din campul pret al tabelului preturi, care corespunde tuturor inregistrarilor cu numele "produs" selectat in listBox1 cum fac asta? ionut_y, on Jan 11 2007, 10:43, said: Asta e metoda pe care o folosesc in VB 6 ... cu acess-ul nu lucrez ..m-am gandit ca tb sa fie asemanator. Codul acela se pune in initialize-ul formei. |
#17
Posted 17 January 2007 - 20:05
deCeNu, on Jan 12 2007, 16:40, said: intr-un form... am list box1 in care listez toate inregistrarile din coloana produs din tabelul produse in al doilea list box imi trebuie valoarea/valorile din campul pret al tabelului preturi, care corespunde tuturor inregistrarilor cu numele "produs" selectat in listBox1 cum fac asta? Presupunem ca avem o forma cu numele "frmProduse" cu 2 listbox : ListBox1 (care contine denumirile produselor) , ListBox2 (preturile pentru produsul selectat din ListBox1), ' pentru prima lista, cea cu produse ' ListBox1.RowSource = "select idprodus, produs from produse" ListBox1.BoundColumn = "1" ListBox1.ColumnCount = "2" ListBox1.ColumnWidths = "0;" ListBox1.onclick = "=ListBox2.Requery" ' ' Pentru a doua lista , cu preturi , in dependenta de produsul selectat ' ListBox2.RowSourceType = "Table/Query" ListBox2.RowSource = select pret from produse where idprodus=Forms!frmProduse.ListBox1.Value ListBox2.BoundColumn = "1" ListBox2.ColumnCount = "1" ListBox1.RowSourceType = "Table/Query" Edited by Hato0be, 17 January 2007 - 20:05. |
#18
Posted 18 January 2007 - 11:09
Hato0be, on Jan 17 2007, 14:05, said: Presupunem ca avem o forma cu numele "frmProduse" cu 2 listbox : ListBox1 (care contine denumirile produselor) , ListBox2 (preturile pentru produsul selectat din ListBox1), ' pentru prima lista, cea cu produse ' ListBox1.RowSource = "select idprodus, produs from produse" ListBox1.BoundColumn = "1" ListBox1.ColumnCount = "2" ListBox1.ColumnWidths = "0;" ListBox1.onclick = "=ListBox2.Requery" ' ' Pentru a doua lista , cu preturi , in dependenta de produsul selectat ' ListBox2.RowSourceType = "Table/Query" ListBox2.RowSource = select pret from produse where idprodus=Forms!frmProduse.ListBox1.Value ListBox2.BoundColumn = "1" ListBox2.ColumnCount = "1" ListBox1.RowSourceType = "Table/Query" multumesc pentru raspuns! toate bune si frumoase...numai ca am introdus codul in form_load si imi da eroare : compile error :expected expression ! ce se intampla acum? nu am introdus codul bine in form? ...acum vad ca da si eroare la rularea programului: la incarcarea formei da eroare lalistbox.rowsource...method or data member not found! Edited by deCeNu, 18 January 2007 - 11:25. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users