Arkadaşlar Kendim İçin Bir Program Yazıyorum Kampanyaları Takip Edip Birleştirip Bir Şekilde Kar Sağladığım Oluyor Bunları Takip Edicek Bir Program Yazıyorum Fakat Bir Sorunum Var
Hatırlatıcı Kısmından Bir Nesneyi Sildiğimde (2.veri tabanından) Kampanyaların olduğu kısıma 2 yeni stun ekleniyor (1.Veri Tabanına) Programımdan VE SORUNUMDAN EKRAN GÖRÜNTÜLERİ
GÖRDÜĞÜNÜZ GİBİ KODLARIMIN BİR KISMI SOURCE OLARAK HENÜZ PAYLŞMIYORUM
HATIRLATIN ALTINDAKİ SİL BUTONU KODLARI
Sorunumu Çözen Kişiyi Coder Listesine Ekliyeceğim Arkadaşlar Çok Acil
Hatırlatıcı Kısmından Bir Nesneyi Sildiğimde (2.veri tabanından) Kampanyaların olduğu kısıma 2 yeni stun ekleniyor (1.Veri Tabanına) Programımdan VE SORUNUMDAN EKRAN GÖRÜNTÜLERİ
GÖRDÜĞÜNÜZ GİBİ KODLARIMIN BİR KISMI SOURCE OLARAK HENÜZ PAYLŞMIYORUM
Kod:
Imports System.Data.OleDb
Public Class Form1
Private baglanti2 As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=vt2.mdb")
Private baglanti As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=vt1.mdb")
Private komut As New OleDbCommand()
Private komut2 As New OleDbCommand()
Private guc As New OleDbDataAdapter()
Private guc2 As New OleDbDataAdapter()
Private gecici_tablo As New DataSet()
Private gecici_tablo2 As New DataSet()
Private Sub listele()
baglanti.Open()
Dim guc As New OleDbDataAdapter("select * From kampanya", baglanti)
guc.Fill(gecici_tablo, "kampanya")
dataGridView1.DataSource = gecici_tablo
DataGridView1.DataMember = "kampanya"
guc.Dispose()
baglanti.Close()
End Sub
Private Sub listele2()
baglanti2.Open()
Dim guc2 As New OleDbDataAdapter("select * From hatırlat", baglanti2)
guc2.Fill(gecici_tablo2, "hatırlat")
DataGridView2.DataSource = gecici_tablo2
DataGridView2.DataMember = "hatırlat"
guc2.Dispose()
baglanti2.Close()
End Sub
Private Sub goster()
TextBox2.Text = (Me.BindingContext(gecici_tablo, "kampanya").Position + 1) & " / " & Me.BindingContext(gecici_tablo, "kampanya").Count
End Sub
Public Sub New()
InitializeComponent()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
listele2()
listele()
goster()
TextBox1.DataBindings.Add("Text", gecici_tablo, "kampanya.banka")
TextBox4.DataBindings.Add("Text", gecici_tablo, "kampanya.başlangıç")
TextBox3.DataBindings.Add("Text", gecici_tablo, "kampanya.bitiş")
RichTextBox1.DataBindings.Add("Text", gecici_tablo, "kampanya.açıklama")
TextBox5.DataBindings.Add("Text", gecici_tablo, "kampanya.ödenen")
TextBox6.DataBindings.Add("Text", gecici_tablo, "kampany****azanç")
End Sub
Kod:
baglanti2.Open()
komut2.Connection = baglanti2
komut2.CommandText = "DELETE from hatırlat WHERE banka='" + TextBox1.Text & "'"
komut2.ExecuteNonQuery()
komut2.Dispose()
baglanti2.Close()
gecici_tablo2.Clear()
listele()
goster()
büyük yazılımlar için pek uygun görmüyorum vb6 yı yinede saolasın kardeşim
