Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: [access]bład zapytania sql
ceo
ceo




Typ: neutral
Postów: 18
Zarejestrowany: Feb 2005
[access]bład zapytania sql

mam taki kod

Private Sub Polecenie2_Click()
On Error GoTo Err_Polecenie2_Click

DoCmd.RunSQL "UPDATE sprzedawcy SET
NazwaFirmy=" & Me.txtNazwaFirmySprzed & ", Nazwisko=" & Me.txtNazwiskoSprzed & ",
Imie=" & Me.txtImieSprzed & ",
Ulica=" & Me.txtAdresSprzed & ",
Miasto=" & Me.txtMiastoSprzed & ",
KodPocztowy=" & Me.txtKodPocztowySprzed & ",
Nip=" & Me.txtNipSprzed & ",
Bank=" & Me.txtBankSprzed & ",
NrKonta=" & Me.txtNrKontaSprzed &
" WHERE sprzedawcy.ids=" & Me.txtIds
 

Exit_Polecenie2_Click:
    Exit Sub

Err_Polecenie2_Click:
    MsgBox Err.Description
    Resume Exit_Polecenie2_Click
   
End Sub



w zapytaniu celowo entery porobilem zeby bylo czytelniej

a problem to blad skladniowy (brak operatora) w wyrazeniu kwerendy ('jakas wartosc') 


jakas wartosc - zawartosc pola Adres

pomoze ktos?

16-02-2005 02:11
Pokaż profil ceo  Wyślij email do ceo   Odwiedź stronę ceo       441633
karolinavb




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

1. Przy założeniu, że wszystkie pola są typu tekst:
- tak

sSQL = "UPDATE sprzedawcy SET NazwaFirmy=" & """" & _
Me.txtNazwaFirmySprzed & """" & _
    ", Nazwisko=" & """" & Me.txtNazwiskoSprzed & """" & _
    ", Imie=" & """" & Me.txtImieSprzed & """" & _
    ", Ulica=" & """" & Me.txtAdresSprzed & """" & _
    ", Miasto=" & """" & Me.txtMiastoSprzed & """" & _
    ", KodPocztowy=" & """" & Me.txtKodPocztowySprzed & """" & _
    ", Nip=" & """" & Me.txtNipSprzed & """" & _
    ", Bank=" & """" & Me.txtBankSprzed & """" & _
    ", NrKonta = " & """" & Me.txtNrKontaSprzed & """" & _
    " WHERE sprzedawcy.ids=" & """" & Me.txtIds & """;"

- albo tak:

sSQL = "UPDATE sprzedawcy SET NazwaFirmy=" & "'" & _
Me.txtNazwaFirmySprzed & "'" & _
    ", Nazwisko=" & "'" & Me.txtNazwiskoSprzed & "'" & _
    ", Imie=" & "'" & Me.txtImieSprzed & "'" & _
    ", Ulica=" & "'" & Me.txtAdresSprzed & "'" & _
    ", Miasto=" & "'" & Me.txtMiastoSprzed & "'" & _
    ", KodPocztowy=" & "'" & Me.txtKodPocztowySprzed & "'" & _
    ", Nip=" & "'" & Me.txtNipSprzed & "'" & _
    ", Bank=" & "'" & Me.txtBankSprzed & "'" & _
    ", NrKonta = " & "'" & Me.txtNrKontaSprzed & "'" & _
    " WHERE sprzedawcy.ids=" & "'" & Me.txtIds & "';"

2. Przy założeniu, że pole  sprzedawcy.ids jest typu liczba:

sSQL = "UPDATE sprzedawcy SET NazwaFirmy=" & "'" & _
Me.txtNazwaFirmySprzed & "'" & _
    ", Nazwisko=" & "'" & Me.txtNazwiskoSprzed & "'" & _
    ", Imie=" & "'" & Me.txtImieSprzed & "'" & _
    ", Ulica=" & "'" & Me.txtAdresSprzed & "'" & _
    ", Miasto=" & "'" & Me.txtMiastoSprzed & "'" & _
    ", KodPocztowy=" & "'" & Me.txtKodPocztowySprzed & "'" & _
    ", Nip=" & "'" & Me.txtNipSprzed & "'" & _
    ", Bank=" & "'" & Me.txtBankSprzed & "'" & _
    ", NrKonta = " & "'" & Me.txtNrKontaSprzed & "'" & _
    " WHERE sprzedawcy.ids=" & CStr(Me.txtIds) & ";"


Debug.Print sSQL

DoCmd.RunSQL sSQL

Na początku i końcu dla pól tekstowych musi być znak " lub znak ' , dla pól typu liczba Cstr
(Access XP)

Przykład orginalny:

Public Sub DoSQL()

    Dim SQL As String
   
    SQL = "UPDATE Employees " & _
          "SET Employees.Title = 'Regional Sales Manager' " & _
          "WHERE Employees.Title = 'Sales Manager'"

    DoCmd.RunSQL SQL
   
End Sub


_____________________________________________
Karolina

16-02-2005 16:48
Pokaż profil karolinavb  Wyślij email do karolinavb   
ceo
ceo




Typ: neutral
Postów: 18
Zarejestrowany: Feb 2005

bardzo mi pomoglas, wszystko dziala , pozdrawiam cieplo

17-02-2005 00:53
Pokaż profil ceo  Wyślij email do ceo   Odwiedź stronę ceo       441633
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1