Kod:
Private Sub combodoldur()
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'")
Dim veriler As New DataTable("Firmalar")
Dim adapter As New OleDbDataAdapter("select * from Firmalar order by firma_id", baglanti)
adapter.Fill(veriler)
ComboBox1.ValueMember = "firma_id"
ComboBox1.DisplayMember = "ad"
ComboBox1.DataSource = veriler
End SubKod:
If Me.ComboBox1.Text = "" Then
MsgBox("Lütfen Firma Ünvani Alanını Doldurunuz. Bu Alan Boş Bırakılamaz.", MsgBoxStyle.Exclamation, "Kayıt Uyarı")
Else
Dim data As New String("INSERT INTO islem (firma_id,tarih,kilo,birim,toplam,stopaj,kesinti,net) values ('{0}','{1}','{2}','{3}','{4}','{5}','{6}','{7}')")
data = String.Format(data, ComboBox1.SelectedValue, MaskedTextBox1.Text, TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text)
Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='tablolar.mdb'")
Dim komutnesnesi As New OleDb.OleDbCommand(data, baglanti)
Dim sonuc As Integer
baglanti.Open()
sonuc = komutnesnesi.ExecuteNonQuery()
If sonuc = 1 Then
MsgBox("Girdiğiniz Veriler Veri Tabanına Kayıt Olmuştur.", MsgBoxStyle.Exclamation, "Kayıt İşlemi")
baglanti.Close()
End If
Listele("SELECT * FROM islem ORDER BY firma_id")
End IfFaydalanmak istiyen olabilir diye düşündüm
