Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: type mismatch wyświetla
zibi11




Typ: neutral
Postów: 5
Zarejestrowany: Jan 2004
type mismatch wyświetla

chce zrobić wyświetlanie danych z tabeli
do dwóch text boxsów imie jeden nazwisko 2
Private Sub Command1_Click()

Dim baza As Database
Dim rekord As Recordset


   

Set baza = OpenDatabase("C:\autorzy.mdb"
na tą linie wskazuje błąd z select
Set rekord = baza.OpenRecordset("select * from autorzy" CCCCCCCCCCCCCC

Text1.Text = rekord.Fields("Imie"
Text2.Text = rekord.Fields("Nazwisko"



oRss.Close
oDB.Close
Set oDB = Nothing
Set oRss = Nothing
 
   

End Sub

28-03-2005 12:43
Pokaż profil zibi11  Wyślij email do zibi11   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003


Sub Test()
Dim dbs As Database
Dim rst As Recordset

On Error Goto Err_Test

'ta baza musi istnieć w tej lokalizacji
Set dbs = OpenDatabase("C:\autorzy.mdb"
'ta tabela musi istnieć
Set rst = dbs.OpenRecordset("SELECT * FROM autorzy;"

'pobierz pierszy rekord
Text1.Text = rst.Fields("Imie"
Text2.Text = rst.Fields("Nazwisko"

Exit_Test:
    rst.Close
    dbs.Close
    Set rst = Nothing
    Set dbs = Nothing
    Exit Sub

Err_Test:
    Msgbox Err.Description, vbExclamation, Err.Number
    Err.Clear
    Resume Exit_Test
End Sub



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

30-03-2005 20:45
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Jest jeszcze taka możliwość, że masz w projekcie

- refrencje do Microsfot Activex  Data Objects ADO X.X Library

oraz

- refrencje do Microsoft DAO X.X Library

wówczas na liście obiektów są 2 obiekty Recordset, ADO i DAO, żaden z nich nie poprzedzony prefiksem

Błąd "type mismatch" oraz:

na tą linie wskazuje błąd z select
Set rekord...


sugeruje taki właśnie błąd to znaczy, że

rst jest ADODB.Recordset

natomiast metoda dbs.OpenRecordset zwraca DAO.RecordSet i jest niezgodnośc typów. Proponuję sprawdzić refrencje w projekcie, a jeśli muszą być obie to poprawić deklarację na:

Dim rst As DAO.Recordset

zresztą stosowanie prefiksów jest dobrą praktyką.
( po kropce po DAO pokaże się na liście tylko 1-den na liście obiktów tylko 1-den RecordSet - DAO)


_____________________________________________
Karolina

31-03-2005 00:08
Pokaż profil karolinavb  Wyślij email do karolinavb   
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1