imHalal Toplist , Toplist , site ekle , google site ekle , Link ekle , tr.gg , imhalal.tr.gg , google dizin toplist a a

randevual

Dim baglanti As New SqlConnection()

        baglanti.ConnectionString = "Server=.;Database=HASTANE;Integrated Security=true"

        baglanti.Open()

        Dim komut As New SqlCommand("insert into Randevular(HastaAdiSoyadi,DoktorID,MuayeneTarihi) values(@hastaad,@doktorid,@tarih)", baglanti)

        komut.Parameters.AddWithValue("@hastaad", Session("uye").ToString())

        komut.Parameters.AddWithValue("@doktorid", DropDownList2.SelectedValue)

        komut.Parameters.AddWithValue("@tarih", Convert.ToDateTime(TextBox1.Text))

        If (komut.ExecuteNonQuery() > 0) Then

            MsgBox("Randevu kaydınız alnımıştır.")

        Else

            MsgBox("Randevu kaydı başarısız.")

        End If

        baglanti.Close()