Ms SQL Veri Tabanlı Eczane Otomasyon Sistemi — VB.NET
Not : Mssql (2008) veri tabanı backup dosyası projenin içinde mevcuttur.
Ms sql veri tabanının nasıl geri yüklendiğini (Restore) videolu olarak izlemek için Tıklayınız.
Ms sql veri tabanının nasıl yedeklendiğini (Backup) videolu olarak izlemek için Tıklayınız.
Giriş Paneli
[code lang=”vb”]
Imports System.Data
Imports System.Data.SqlClient ‘www.gorselprogramlama.com
Public Class girisPanel
Public bag As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=Data;Integrated Security=True")
Public kmt As New SqlCommand
Dim sonuc As Integer
Private Sub btnGiris_Click(sender As Object, e As EventArgs) Handles btnGiris.Click
sonuc = 0
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select count(id) from kullanicibil where kullaniciAdi=@kullaniciAdi and parola=@parola"
kmt.Parameters.AddWithValue("@kullaniciAdi", textBox1.Text.ToLower().Trim())
kmt.Parameters.AddWithValue("@parola", textBox2.Text.ToLower().Trim())
sonuc = Convert.ToInt32(kmt.ExecuteScalar().ToString())
If (sonuc = 1) Then
giris.Show() ‘www.gorselprogramlama.com
Me.Hide()
Else
label3.Text = "Kullanici adı veya parola Hatalı !"
End If
bag.Close()
kmt.Parameters.Clear()
kmt.Dispose()
textBox1.Text = ""
textBox2.Text = "" ‘www.gorselprogramlama.com
End Sub
Private Sub btnKapat_Click(sender As Object, e As EventArgs) Handles btnKapat.Click
Close() ‘www.gorselprogramlama.com
End Sub
End Class
[/code]
AnaMenü
[code lang=”vb”]
Imports System.Data
Imports System.Data.OleDb
Public Class giris
Public bag As New OleDbConnection("Provider=Microsoft.ace.Oledb.12.0;Data Source=eczane.accdb")
Public kmt As New OleDbCommand()
Public adtr As New OleDbDataAdapter()
Public tablo As New DataTable() ‘www.gorselprogramlama.com
Private Sub giris_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
recete_satis.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
hasta_kaydi.Show()
Me.Hide() ‘www.gorselprogramlama.com
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
ilac_ekle.Show()
Me.Hide()
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Application.Exit()
End Sub
End Class
[/code]
Hasta Kaydı
[code lang=”vb”]
Imports System.Data
Imports System.Data.SqlClient
Public Class hasta_kaydi
Public bag As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=Data;Integrated Security=True")
Public kmt As New SqlCommand
Public adtr As New SqlDataAdapter ‘www.gorselprogramlama.com
Public tablo As New DataTable()
Public Sub listele()
tablo.Clear()
Dim adtr As New SqlDataAdapter("select * From hastabil ", bag)
adtr.Fill(tablo)
DataGridView1.DataSource = tablo
adtr.Dispose()
End Sub
Private Sub hasta_kaydi_Load(sender As Object, e As EventArgs) Handles MyBase.Load
listele()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
giris.Show()
Me.Hide()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "INSERT INTO hastabil(adi,soyadi,tcKimlik,cepTel,adres) VALUES (@adi,@soyadi,@tcKimlik,@cepTel,@adres) "
kmt.Parameters.AddWithValue("@adi", textBox1.Text)
kmt.Parameters.AddWithValue("@soyadi", textBox2.Text)
kmt.Parameters.AddWithValue("@tcKimlik", TextBox3.Text)
kmt.Parameters.AddWithValue("@cepTel", TextBox4.Text) ‘www.gorselprogramlama.com
kmt.Parameters.AddWithValue("@adres", TextBox5.Text)
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
kmt.Parameters.Clear()
For i As Integer = 0 To Me.Controls.Count – 1
If TypeOf Me.Controls(i) Is TextBox Then
Me.Controls(i).Text = ""
End If
Next
listele()
MessageBox.Show("Kayıt işlemi tamamlandı !")
End Sub
Private Sub btnCikis_Click(sender As Object, e As EventArgs) Handles btnCikis.Click
Close()
End Sub
Private Sub DataGridView1_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick
textBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString()
textBox2.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString()
TextBox3.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString()
TextBox4.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString()
TextBox5.Text = DataGridView1.CurrentRow.Cells(5).Value.ToString()
End Sub
Private Sub btnGuncelle_Click(sender As Object, e As EventArgs) Handles btnGuncelle.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "UPDATE hastabil SET adi=@adi,soyadi=@soyadi,tcKimlik=@tcKimlik,cepTel=@cepTel,adres=@adres WHERE id=@id"
kmt.Parameters.AddWithValue("@adi", textBox1.Text)
kmt.Parameters.AddWithValue("@soyadi", textBox2.Text)
kmt.Parameters.AddWithValue("@tcKimlik", TextBox3.Text)
kmt.Parameters.AddWithValue("@cepTel", TextBox4.Text)
kmt.Parameters.AddWithValue("@adres", TextBox5.Text)
kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)
kmt.ExecuteNonQuery()
bag.Close()
kmt.Parameters.Clear()
listele()
End Sub
Private Sub btnSil_Click(sender As Object, e As EventArgs) Handles btnSil.Click
bag.Open()
kmt.Connection = bag ‘www.gorselprogramlama.com
kmt.CommandText = "DELETE from hastabil WHERE id=@id"
kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
kmt.Parameters.Clear()
listele()
End Sub
Private Sub btnAra_Click(sender As Object, e As EventArgs) Handles btnAra.Click
Dim adtr As New SqlDataAdapter("select * From hastabil", bag)
Dim alan As String = ""
If comboBox1.Text = "Tc Kimlik" Then
alan = "tcKimlik"
ElseIf comboBox1.Text = "Adı" Then ‘www.gorselprogramlama.com
alan = "adi"
ElseIf comboBox1.Text = "Soyadı" Then
alan = "soyadi"
End If
If comboBox1.Text = "Tümü" Then
bag.Open()
tablo.Clear()
kmt.Connection = bag
kmt.CommandText = "Select * from hastabil"
adtr.SelectCommand = kmt
adtr.Fill(tablo)
bag.Close()
End If
If alan <> "" Then
bag.Open()
adtr.SelectCommand.CommandText = (" Select * From hastabil" & " where(" & alan & " like ‘%") + TextBox6.Text & "%’ )"
tablo.Clear()
adtr.Fill(tablo)
bag.Close()
End If
kmt.Dispose() ‘www.gorselprogramlama.com
End Sub
End Class
[/code]
İlaç Kaydı
[code lang=”vb”]
Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class ilac_ekle
Public bag As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=Data;Integrated Security=True")
Public kmt As New SqlCommand
Public adtr As New SqlDataAdapter ‘www.gorselprogramlama.com
Public tablo As New DataTable()
Dim idfir As Integer
Public Sub firmaEkle()
Using connection As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=Data;Integrated Security=True")
connection.Open()
Dim command As New SqlCommand("Select * from firmabil", connection)
Dim reader As SqlDataReader = command.ExecuteReader()
While reader.Read()
ComboBox1.Items.Add(New DictionaryEntry(reader(1).ToString(), reader(0).ToString()))
End While
reader.Close()
command.Dispose()
End Using
ComboBox1.DisplayMember = "Key"
ComboBox1.ValueMember = "Value"
ComboBox1.DataSource = ComboBox1.Items
ComboBox1.Text = "" ‘www.gorselprogramlama.com
End Sub
Public Sub idFirma()
Try
Using connection As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=Data;Integrated Security=True")
connection.Open()
Dim command2 As New SqlCommand("Select * from firmabil where id=@id", connection)
command2.Parameters.AddWithValue("@id", idfir)
Dim reader As SqlDataReader = command2.ExecuteReader()
While reader.Read()
ComboBox1.Text = reader(1).ToString()
End While
reader.Close()
command2.Parameters.Clear()
command2.Dispose()
End Using
Catch ex As Exception
End Try
End Sub
Public Sub listele()
tablo.Clear()
Dim adtr As New SqlDataAdapter("select * From ilacbil ", bag)
adtr.Fill(tablo)
DataGridView1.DataSource = tablo
adtr.Dispose()
End Sub
Private Sub ilac_ekle_Load(sender As Object, e As EventArgs) Handles MyBase.Load
listele()
firmaEkle()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
giris.Show() ‘www.gorselprogramlama.com
Me.Hide()
End Sub
Private Sub btnFirmaEkle_Click(sender As Object, e As EventArgs) Handles btnFirmaEkle.Click
firma_ekle.Show()
End Sub
Private Sub btnKaydet_Click(sender As Object, e As EventArgs) Handles btnKaydet.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "INSERT INTO ilacbil(barkod,adi,fiyat,miktar,firmaId) VALUES (@barkod,@adi,@fiyat,@miktar,@firmaId) "
kmt.Parameters.AddWithValue("@barkod", textBox1.Text)
kmt.Parameters.AddWithValue("@adi", textBox2.Text)
kmt.Parameters.AddWithValue("@fiyat", TextBox3.Text)
kmt.Parameters.AddWithValue("@miktar", TextBox4.Text)
kmt.Parameters.AddWithValue("@firmaId", ComboBox1.SelectedValue)
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close() ‘www.gorselprogramlama.com
For i As Integer = 0 To Me.Controls.Count – 1
If TypeOf Me.Controls(i) Is TextBox Then
Me.Controls(i).Text = ""
End If
If TypeOf Me.Controls(i) Is ComboBox Then
Me.Controls(i).Text = ""
End If
Next
kmt.Parameters.Clear()
listele()
MessageBox.Show("Kayıt işlemi tamamlandı !")
End Sub
Private Sub btnSil_Click(sender As Object, e As EventArgs) Handles btnSil.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "DELETE from ilacbil WHERE id=@id"
kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
kmt.Parameters.Clear()
listele()
End Sub
Private Sub DataGridView1_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick
textBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString()
textBox2.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString()
TextBox3.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString()
TextBox4.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString()
ComboBox1.Text = ComboBox1.DisplayMember.Length.ToString()
idfir = DataGridView1.CurrentRow.Cells(5).Value
idFirma()
End Sub
Private Sub btnGuncelle_Click(sender As Object, e As EventArgs) Handles btnGuncelle.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "UPDATE ilacbil SET barkod=@barkod,adi=@adi,fiyat=@fiyat,miktar=@miktar,firmaId=@firmaId WHERE id=@id"
kmt.Parameters.AddWithValue("@barkod", textBox1.Text)
kmt.Parameters.AddWithValue("@adi", textBox2.Text)
kmt.Parameters.AddWithValue("@fiyat", TextBox3.Text)
kmt.Parameters.AddWithValue("@miktar", TextBox4.Text)
kmt.Parameters.AddWithValue("@firmaId",ComboBox1.SelectedValue)
kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)
kmt.ExecuteNonQuery()
bag.Close()
kmt.Parameters.Clear()
listele()
End Sub
Private Sub btnCikis_Click(sender As Object, e As EventArgs) Handles btnCikis.Click
Close()
End Sub
Private Sub btnAra_Click(sender As Object, e As EventArgs) Handles btnAra.Click
Dim adtr As New SqlDataAdapter("select * From ilacbil", bag)
Dim alan As String = ""
If ComboBox2.Text = "Barkod" Then
alan = "barkod"
ElseIf ComboBox2.Text = "Adı" Then
alan = "adi"
End If
If ComboBox2.Text = "Tümü" Then
bag.Open()
tablo.Clear()
kmt.Connection = bag
kmt.CommandText = "Select * from ilacbil"
adtr.SelectCommand = kmt
adtr.Fill(tablo) ‘www.gorselprogramlama.com
bag.Close()
End If
If alan <> "" Then
bag.Open()
adtr.SelectCommand.CommandText = (" Select * From ilacbil" & " where(" & alan & " like ‘%") + TextBox6.Text & "%’ )"
tablo.Clear()
adtr.Fill(tablo)
bag.Close()
End If
kmt.Dispose()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
label1.Text = ComboBox1.SelectedValue.ToString()
End Sub
End Class
[/code]
Satış İşlemleri
[code lang=”vb”]
Imports System.Data
Imports System.Data.SqlClient
Public Class recete_satis
Public bag As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=Data;Integrated Security=True")
Public kmt As New SqlCommand
Public adtr As New SqlDataAdapter ‘www.gorselprogramlama.com
Public tablo As New DataTable()
Dim idHas, idIla As Integer
Public Sub tcEkle()
Using connection As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=Data;Integrated Security=True")
connection.Open()
Dim command As New SqlCommand("Select id,tcKimlik from hastabil", connection)
Dim reader As SqlDataReader = command.ExecuteReader()
While reader.Read()
ComboBox1.Items.Add(New DictionaryEntry(reader(1).ToString(), reader(0).ToString()))
End While
reader.Close()
command.Dispose()
End Using
ComboBox1.DisplayMember = "Key"
ComboBox1.ValueMember = "Value"
ComboBox1.DataSource = ComboBox1.Items
ComboBox1.Text = ""
End Sub
Public Sub ilacEkle()
Using connection As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=Data;Integrated Security=True")
connection.Open()
Dim command As New SqlCommand("Select id,adi from ilacbil", connection)
Dim reader As SqlDataReader = command.ExecuteReader()
While reader.Read()
ComboBox2.Items.Add(New DictionaryEntry(reader(1).ToString(), reader(0).ToString()))
End While
reader.Close()
command.Dispose()
End Using
ComboBox2.DisplayMember = "Key"
ComboBox2.ValueMember = "Value"
ComboBox2.DataSource = ComboBox2.Items
ComboBox2.Text = ""
End Sub
Public Sub idHasta()
Using connection As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=Data;Integrated Security=True")
connection.Open()
Dim command2 As New SqlCommand("Select * from hastabil where id=@id", connection)
command2.Parameters.AddWithValue("@id", idHas)
Dim reader As SqlDataReader = command2.ExecuteReader()
While reader.Read()
ComboBox1.Text = reader(3).ToString()
End While
reader.Close()
command2.Parameters.Clear()
command2.Dispose()
End Using
End Sub
Public Sub idIlac()
Using connection As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=Data;Integrated Security=True")
connection.Open()
Dim command3 As New SqlCommand("Select * from ilacbil where id=@id", connection)
command3.Parameters.AddWithValue("@id", idIla)
Dim reader As SqlDataReader = command3.ExecuteReader()
While reader.Read()
ComboBox2.Text = reader(2).ToString()
End While
reader.Close()
command3.Parameters.Clear()
command3.Dispose()
End Using
End Sub
Public Sub listele()
tablo.Clear()
Dim adtr As New SqlDataAdapter("select * From satisbil ", bag)
adtr.Fill(tablo)
DataGridView1.DataSource = tablo
adtr.Dispose()
End Sub
Private Sub recete_satis_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ilacEkle()
tcEkle()
listele()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
giris.Show()
Me.Hide()
End Sub
Private Sub btnKaydet_Click(sender As Object, e As EventArgs) Handles btnKaydet.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "INSERT INTO satisbil(hastaId,ilacId,tarih,miktar,faturaNo) VALUES (@hastaId,@ilacId,@tarih,@miktar,@faturaNo) "
kmt.Parameters.AddWithValue("@hastaId", ComboBox1.SelectedValue)
kmt.Parameters.AddWithValue("@ilacId", ComboBox2.SelectedValue)
kmt.Parameters.AddWithValue("@tarih", DateTimePicker1.Text)
kmt.Parameters.AddWithValue("@miktar", TextBox1.Text)
kmt.Parameters.AddWithValue("@faturaNo", TextBox2.Text)
kmt.ExecuteNonQuery()
kmt.Parameters.Clear()
kmt.Dispose()
bag.Close()
For i As Integer = 0 To Me.Controls.Count – 1
If TypeOf Me.Controls(i) Is TextBox Then
Me.Controls(i).Text = ""
End If
If TypeOf Me.Controls(i) Is ComboBox Then
Me.Controls(i).Text = ""
End If
Next
listele()
MessageBox.Show("Kayıt işlemi tamamlandı !")
End Sub
Private Sub btnSil_Click(sender As Object, e As EventArgs) Handles btnSil.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "DELETE from satisbil WHERE id=@id"
kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)
kmt.ExecuteNonQuery() ‘www.gorselprogramlama.com
kmt.Dispose()
bag.Close()
kmt.Parameters.Clear()
listele()
End Sub
Private Sub btnCikis_Click(sender As Object, e As EventArgs) Handles btnCikis.Click
Close()
End Sub
Private Sub btnGuncelle_Click(sender As Object, e As EventArgs) Handles btnGuncelle.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "UPDATE satisbil SET hastaId=@hastaId,ilacId=@ilacId,tarih=@tarih,miktar=@miktar,faturaNo=@faturaNo WHERE id=@id"
kmt.Parameters.AddWithValue("@hastaId", ComboBox1.SelectedValue)
kmt.Parameters.AddWithValue("@ilacId", ComboBox2.SelectedValue)
kmt.Parameters.AddWithValue("@tarih", DateTimePicker1.Text)
kmt.Parameters.AddWithValue("@miktar", TextBox1.Text)
kmt.Parameters.AddWithValue("@faturaNo", TextBox2.Text)
kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)
kmt.ExecuteNonQuery()
bag.Close()
kmt.Parameters.Clear()
listele()
End Sub
Private Sub DataGridView1_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick
TextBox1.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString()
TextBox2.Text = DataGridView1.CurrentRow.Cells(5).Value.ToString()
DateTimePicker1.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString()
idHas = DataGridView1.CurrentRow.Cells(1).Value ‘www.gorselprogramlama.com
idIla = DataGridView1.CurrentRow.Cells(2).Value
idHasta()
idIlac()
End Sub
Private Sub btnAra_Click(sender As Object, e As EventArgs) Handles btnAra.Click
Dim adtr As New SqlDataAdapter("select * From satisbil", bag)
Dim alan As String = ""
If ComboBox3.Text = "Hasta Id" Then
alan = "hastaId"
ElseIf ComboBox3.Text = "Fatura No" Then
alan = "faturaNo"
End If
If ComboBox3.Text = "Tümü" Then
bag.Open()
tablo.Clear()
kmt.Connection = bag
kmt.CommandText = "Select * from satisbil"
adtr.SelectCommand = kmt
adtr.Fill(tablo)
bag.Close()
End If
If alan <> "" Then
bag.Open()
adtr.SelectCommand.CommandText = (" Select * From satisbil" & " where(" & alan & " like ‘%") + TextBox6.Text & "%’ )"
tablo.Clear()
adtr.Fill(tablo)
bag.Close()
End If
kmt.Dispose() ‘www.gorselprogramlama.com
End Sub
End Class
[/code]
Firma Ekle
[code lang=”vb”]
Imports System.Data
Imports System.Data.SqlClient
Public Class firma_ekle
Public bag As New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=Data;Integrated Security=True")
Public kmt As New SqlCommand
Public adtr As New SqlDataAdapter ‘www.gorselprogramlama.com
Public tablo As New DataTable()
Public Sub listele()
tablo.Clear()
Dim adtr As New SqlDataAdapter("select * From firmabil ", bag)
adtr.Fill(tablo) ‘www.gorselprogramlama.com
DataGridView1.DataSource = tablo
adtr.Dispose()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "INSERT INTO firmabil(adi) VALUES (@adi)"
kmt.Parameters.AddWithValue("@adi", textBox1.Text)
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
kmt.Parameters.Clear()
listele()
MessageBox.Show("Kayıt işlemi tamamlandı !")
End Sub
Private Sub btnGuncelle_Click(sender As Object, e As EventArgs) Handles btnGuncelle.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "UPDATE firmabil SET adi=@adi WHERE id=@id"
kmt.Parameters.AddWithValue("@adi", textBox1.Text)
kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)
kmt.ExecuteNonQuery()
bag.Close()
kmt.Parameters.Clear()
listele()
End Sub
Private Sub btnSil_Click(sender As Object, e As EventArgs) Handles btnSil.Click
bag.Open()
kmt.Connection = bag
kmt.CommandText = "DELETE from firmabil WHERE id=@id"
kmt.Parameters.AddWithValue("@id", DataGridView1.CurrentRow.Cells(0).Value)
kmt.ExecuteNonQuery()
kmt.Dispose() ‘www.gorselprogramlama.com
bag.Close()
kmt.Parameters.Clear()
listele()
End Sub
Private Sub DataGridView1_CellMouseDoubleClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick
textBox1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString()
End Sub
Private Sub btnCikis_Click(sender As Object, e As EventArgs) Handles btnCikis.Click
Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
giris.Show()
Me.Hide()
End Sub
Private Sub firma_ekle_Load(sender As Object, e As EventArgs) Handles MyBase.Load
listele()
End Sub
Private Sub btnAra_Click(sender As Object, e As EventArgs) Handles btnAra.Click
Dim adtr As New SqlDataAdapter("select * From firmabil", bag)
Dim alan As String = ""
If ComboBox3.Text = "Firma Adı" Then
alan = "adi"
End If
If ComboBox3.Text = "Tümü" Then
bag.Open()
tablo.Clear()
kmt.Connection = bag
kmt.CommandText = "Select * from firmabil"
adtr.SelectCommand = kmt ‘www.gorselprogramlama.com
adtr.Fill(tablo)
bag.Close()
End If
If alan <> "" Then
bag.Open()
adtr.SelectCommand.CommandText = (" Select * From firmabil" & " where(" & alan & " like ‘%") + TextBox6.Text & "%’ )"
tablo.Clear()
adtr.Fill(tablo)
bag.Close()
End If
kmt.Dispose() ‘www.gorselprogramlama.com
End Sub
End Class
[/code]
mrb bu pojeyi indirdim ama çalıştıramadım yardımcı olurmusunuz?
deniz:
Sorun nedir ?
giriş panelinde kullanıcı adı ve şifre nedir?
deniz:
Kullanıcı adı ve şifre klasördeki veri tabanında var.
kulanıcı adı : admin şifre: 1234
@admin
ya ben veri tabanına ulaşamıorum ve uygulama açılmıyor kullanıcı adı ve şifreyi girdim ama açılmıo
deniz :
veri tabanı bin-debug klasöründe
Admin veritabanından dolayı giriş yapamıyorum
Kullanıcı Adı : Admin
Şifre : 1234
Olmasına rağmen giriş yapmamaktayım
Fatih:
Bin–debug klasöründeki acccess dosyasını aç.Buradaki kullanicibil tablosunda kullanıcılar ve şifreleri var.
Merhaba programınızı indirdim içinde datalar yok mail atabilir misiniz…?
Necati :
Datalar içinde mevcut
@admin
hocam dataları bulamıyoruz yardımcı olurmusunuz
rast :
datalar indirdiğiniz rar dosyası içinde.
Admin yardımcı olursanız sevinirim kesinlikle bu giriş butonuyla ilgili sıkıntı var yani giriş butonuna basınca bag() da hata veriyor neden olabilir
orhan :
Access versiyon sorunu olabilir.Eğer Access 2007 ,2010 veya 2013 kullanıyorsan access 2003 kurmalısın veya kodlarda jet yerine ace , 4.0 yerine 12.0 ve veri tabanı ismi data.accdb olmalı.Tabi veri tabanını 2007 veya 2010 veya 2013′te açıp 2007 ,2010 veya 2013 olarak kaydetmelisin.Veri tabanı bin–>debug klasöründe.
bende access 2016 var ondan mı dersiniz sorun acaba
orhan :
Olabilir. 2013 kurup öyle denerseniz sorunu daha iyi çözümlemiş oluruuz.
Merhaba iyi gunler bag.open hatasi geliyor anladigim kadarı ileacces ile baglantıda sorun var 2013 var bende tanimlama yerine
Provider=Microsoft.Ace.OleDb.12.0; Data Source=data.accdb mi yazmaliyim bununla birlikte ne yapmaliyim
Merhaba bu proje uzerinde degisiklik yapamiyoruz neden mesala resim ekleyecek ve bi form acacaz olmuyi neden acaba
Caner :
Ekleyebilrsiniz.Siz Visual Studio nun tam sürümünü kullanmıyor olabilirsiniz.Kısıtlı kulanım var olabilir.Full Ultimate ve professionel sürüme geçiniz.
admin veri tabanı bin-debug klasorunde görükmüyor yardımcı olurmusun
Efekan Akçay :
Düzeltme : Direkt indirdiğiniz rar dosyasının rar’dan çıkardığınızda direkt klasör içinde. Veri tabanı Sql uzantılı.Sql içine Restore etmeniz gerekir. Restore işlemi için aşağıdaki linki inceleyebilirsiniz.
http://www.gorselprogramlama.com/ms-sql-veri-tabanini-geri-yukleme-restore/
ADMİN BENDE AÇLMIYOR VE BOŞ SAYFA VERİYOR VİUAL STUDYO 2010 VAR
bYRAM:
Hata mesajı olarak ne alıyorusunuz.
İNDİRME YERİ NEREDE??