Caute takze:-) 1.
If Datum_narodeniaDateTimePicker.Checked = False Then
datum_narodenia = Nothing
Else
datum_narodenia = CDate(Datum_narodeniaDateTimePicker.Text)
End If
Dim con As New SqlCeConnection("Data Source=|DataDirectory|\db_internat.sdf")
con.Open()
Dim com As New SqlCeCommand("INSERT INTO student (priezvisko, meno, datum_narodenia, miesto_narodenia, rodne_cislo, bydlisko, telefon, cislo_op, op_vydal, op_vydany_dna, skola_odkial_prichadza, skola_ktoru_bude_navstevovat, studijny_odbor, vzdialenost_bydlisko_internat, zaluby, zz_meno, zz_priezvisko, zz_datum_narodenia, zz_povolanie, zz_adresa_zamestnavatela, zz_telefon, zz_poznamka, id_skupina) VALUES ('" & priezvisko & "','" & meno & "','" & datum_narodenia & "','" & miesto_narodenia & "','" & rodne_cislo & "','" & bydlisko & "','" & telefon & "','" & cislo_op & "','" & op_vydal & "','" & op_datum_vydania & "','" & skola_odkial_prichadza & "','" & skola_ktoru_navstevuje & "','" & studijny_odbor & "','" & vzdialenost_bydlisko_internat & "','" & zaluby & "','" & zz_meno & "','" & zz_priezvisko & "','" & zz_datum_narodenia & "','" & zz_povolanie & "','" & zz_adresa_zamestnavatela & "','" & zz_telefon & "','" & zz_poznamka & "','" & id_skupina & "')", con)
com.ExecuteNonQuery()
con.Close()
Takze toto je kod pomocou ktoreho vkladam data do databazy. Cize rozhodovacia strukutua plus klasicky insert. 2. a druhy problem som asi zle opisal, cize skusim trosku jednoduchsie: cize o ten format my slo iba preto ze ked nacitam hodnotu z datetimepickeru do premennej datum_narodenia (typ date) a nasledne dam cely zaznam vlozit do databazy tak my vrati nsledujucu chybu "There was an error in a part of the date format. [ Expression (if known) = ]" vdaka
|