[ SH_G_T_M @ 24.02.2005. 18:18 ] @
Upisivanjem znaka apostrofa ' u txtbox i pokusajem ubacivanja istog u bazu pojavljuje se graske. Koji jos simboli ne prolaze kod upisivanja u bazu i kako ih elimirati prilikom upisivanja?

Ja sam pokusao zabraniti unosenje apostrofa u txtbox. Uspio sam ovim kodom zabraniti upisivanmje apostrofa ali dobivam kursor na pocetak txtboxa, sto mi nikako ne odgovara.
Pitanje 2. Kako postaviti kursor na kraj unosa?

Code:

Private Sub txtIme_Change()
If Right$(txtIme.Text, 1) = "'" Then
txtIme.Text = Left$(txtIme.Text, Len(txtIme.Text) - 1)
End If
End Sub
[ mladenovicz @ 24.02.2005. 18:26 ] @
Zabrana '

Code:

Private Sub txtIme_KeyPress(KeyAscii As Integer)
    If KeyAscii = 39 Then KeyAscii = 0
End Sub


Kursor na kraj unetog texta

Code:

txtIme.SelStart = Len(txtIme.Text)
[ SH_G_T_M @ 24.02.2005. 18:46 ] @
:) Hvala puno!

Ima li jos kakvih "znakova" koje treba banovati?
[ mladenovicz @ 24.02.2005. 19:15 ] @
Kako dodajes zapis u bazu? INSERT INTO ili Recordset.AddNew? Prvi nacin je komplikovaniji zbog ovih stvari. Ako radis sa recordsetom neces imati ovakvih problema.
[ SH_G_T_M @ 24.02.2005. 22:13 ] @
Ja koristim ovaj prvi, tezi nacin.
Tako su me ucili odn. uputili da je to najbolji nacin pa je eto turpijam tako.

Mada nista nije neizvedivo, samo je pitanje na koji nacin.
[ mladenovicz @ 25.02.2005. 08:57 ] @
Nije da je taj nacin los, ali dosta je "database specific", odnosno sintaksa se razlikuje (ne drasticno) zavisno od baze sa kojom radis. Ako radis sa recordsetom, onda ne moras da vodis racuna o tim specificnostima, bar sto se tice unosa podataka.
[ negyxo @ 25.02.2005. 09:23 ] @
Ako koristis prvi nacin i ADO konekciju onda koristi parametre za unos u bazu. Tako ces moci da unosis bilo sta i neces imati potrebe da se mucis sa filtriranjem.

Code:

            Set cmd = New ADODB.Command
            cmd.ActiveConnection = cnn 'ovde je neka tvoja konekcija
            cmd.CommandText = "INSERT INTO MojaTabela (mojePolje) VALUES (@mojaVrednost)" '
            
            Set param = New ADODB.Parameter
            param.Type = adWChar
            param.Size = len(txtIme.Text)
            param.Name = "@mojaVrednost"
            cmd.Parameters.Append param
            param.Value = txtIme.Text

            cmd.Execute