şimdi projemiz yolcu veritabanı; yolcunun bilgilerini oturacağı koltuğu otobusun kalkış tarihini tutacak
bu veri tabanına kayıt etmeyi ve diğer veri tabanı işlemlerini yaptım fakat benim istediğim yolcu tarih ve koltuk sectiğinde eğer aynı tarihte o koltuk secilmişse yolcu kaydı yapmayacak,aynı tarihte o koltuk kayıtlı değilse yolcu kaydına izin verecek bunu bir turlu yapamadım şimdiden ilgilenen arkadaşlara teşekurederim
calışmalarınızda başarılar....
-kayıta kulladığım kodlar:
Dim ds As New DataSet
Dim Cmd As OleDbCommand
Dim SQL As String
Dim objCmd As New OleDbCommand
SQL = "insert into veri (adi, soyadi,koltukid, kalkiszaman, fiyat, gidilecekyer, telefon, cinsiyet) values ('" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "','" + TextBox6.Text + "','" + ComboBox1.Text + "','" + TextBox8.Text + "','" + cinsiyet + "')"
Cmd = New OleDbCommand(SQL, conn)
If (conn.State = ConnectionState.Closed) Then conn.Open()
objCmd = New OleDbCommand(SQL, conn)
objCmd.ExecuteNonQuery()
conn.Close()
If TextBox1.Text = " " Or TextBox2.Text = " " Or TextBox3.Text = " " Or TextBox4.Text = " " Or TextBox5.Text = " " Or TextBox6.Text = " " Or ComboBox1.Text = " " Then
MsgBox("lutfen tum alanları doldurunuz")
Else
ListBox1.Items.Add(TextBox2.Text)
MsgBox("Kayıt eklendi", MsgBoxStyle.OkOnly + MsgBoxStyle.Information)
End If
__________________