ben bu resimdeki gibi bir proje yaptım ve veri tabanıda yan tarafta görünüyor o veri tabanını kullanarak veri kaydetme silme falan lazım kodlar imports. system. data. . sonra privite sub buttun1. click... dim i as integer.. .. sql sorgusu. ... end sub böle kodlar oluyorduya onun gibi bişey istiyorum bu kodlar sanki farklı gibi geldi ben mi yanlış biliyorum yoksa sizin yolladığınız ado SQL gibi bişey istiyordum ben

visual sutudio 2008 de yaptım

mesela ordaki tablolardan hasta yazan tablo ekranda görünnen form iki için gecerlidir ordaki bilgiler hasta tablosundaki alanlara kayıt olucak ad soyad adre vs. seyler

ekle; Kod: Dim sql As New String("INSERT INTO kimlik values (' ',' ',' ',' ',' ',' ')") sql = String. Format(sql, TextBox2. Text, TextBox3. Text, TextBox4. Text, TextBox5. Text, ComboBox1. Text, ComboBox2. Text) Dim baglanti As New OleDbConnection("Provider=Microsoft. Jet. OLEDB.4.0;Data Source='..\vt1. mdb'") Dim komutnesesi As New OleDb. OleDbCommand Dim sonuc As Integer baglanti. Open sonuc = komutnesesi. ExecuteNonQuery If sonuc = 1 Then MsgBox TextBox1. Text = "" TextBox2. Text = "" TextBox3. Text = "" TextBox4. Text = "" TextBox5. Text = "" ComboBox1. Text = "" ComboBox2. Text = "" datagiriddelistele End If baglanti. Close silme Kod: Dim sql As New String sql = String. Format(sql, TextBox2. Text, TextBox3. Text, TextBox4. Text, TextBox5. Text, ComboBox1. Text, ComboBox2. Text) Dim baglanti As New OleDbConnection("Provider=Microsoft. Jet. OLEDB.4.0;Data Source='..\vt1. mdb'") Dim komutnesesi As New OleDb. OleDbCommand Dim sonuc As Integer baglanti. Open sonuc = komutnesesi. ExecuteNonQuery If sonuc = 1 Then MsgBox TextBox1. Text = "" TextBox2. Text = "" TextBox3. Text = "" TextBox4. Text = "" TextBox5. Text = "" ComboBox1. Text = "" ComboBox2. Text = "" datagiriddelistele End If baglanti. Close güncelleme Kod: Dim sql As New String("UPDATE kimlik SET AdSoyad=' ', Dogumtarihi=' ', Adres=' ', Telefon=' ', Cinsiyet=' ', Kangrubu=' 'WHERE Hastano=" & Hastano) sql = String. Format(sql, TextBox2. Text, TextBox3. Text, TextBox4. Text, TextBox5. Text, ComboBox1. Text, ComboBox2. Text) Dim baglanti As New OleDbConnection("Provider=Microsoft. Jet. OLEDB.4.0;Data Source='..\vt1. mdb'") Dim komutnesesi As New OleDb. OleDbCommand Dim sonuc As Integer baglanti. Open sonuc = komutnesesi. ExecuteNonQuery If sonuc = 1 Then MsgBox datagiriddelistele End If baglanti. Close buda temizleme Kod: TextBox1. Text = "" TextBox2. Text = "" TextBox3. Text = "" TextBox4. Text = "" TextBox5. Text = "" ComboBox1. Text = "" ComboBox2. Text = "" aynı programı biz vb2005 te yapmıştık yaptığımız projeden sanırım senin istediğin kodlar bunlar sql le aradaki bağlantığıyı sağlama 2008le pek fark olacağını düşünmüyorum

visual basic de bir tane hastahane otomasyonu yaptım tam yaptım da denemem sadece görseli var formlar falan hersey tamm sql veri tabanı kullanmam gerek ama ben hep daha önce access kullanmıstım şimdi sql kullanmam gerek sql de tabloları falan herseyi yaptım ama textbox ve combobox ların içersine girdiğim bilgileri kaydetme yada silme arama gibi kodlar lazım randevu kayıt falan gibi bunları veritabanına kaydedecek sıfırdan bütün kodları lazım yardımcı olursanırz sevinirim salı gününe sunumum var okulda son olarak birde en başta kullanıcı giriş ekranı olucak yaptım ama tek kullanıcılı çok kullanıcılı ve yönetici izinleri vereceğim birşey olması gerekliymiş bunun içinde yardımcı olursanız sevinirim ama öncelik veri tabanı... şimdiden yardımcı olacak arkadaşlara teşekkürler belki basit birsey ama kusura bakmayın

Kullanıcı olayına gelince izinleri şuan aklımda bişey olmadığı için yapamam fakat çoklu kullanıcı diyim. Her kullanıcı için kayıt yapılır girişte ise süzme yaparsın örnek olarak giris adlıbir veri tabanımız olsun içerisin de denetleme tablosu olsun bu tabloya iki tane alan eklersin. kadi ve pass olsun. normal bir form dan bu şekilde bu alanlara üye olmalarını sağlarsın. kullanıcı giriş yapacağı formu açtığın da süzme yapasın. kullanıcı giriş formun da 4 tane text olsun text3 kadi alanına text4 ü pass alanına bağlarsın text3 ve text4 gizli olsun ve görünmesin. text1 ve text2 den girişi yaptırırsın Kod: Private Sub Command1_Click If Text1 = Text3 And Text2 = Text4 Then MsgBox Else MsgBox End If End Sub Private Sub Text1_Change If Text1 = "" Then Adodc1. Recordset. Filter = adFilterNone Adodc1. Refresh Exit Sub End If Adodc1. Recordset. Filter = "kadi like '" & Text1 & "%' " End Sub Private Sub Text2_Change If Text4 = "" Then Adodc1. Recordset. Filter = adFilterNone Adodc1. Refresh Exit Sub End If Adodc1. Recordset. Filter = "pass like '" & Text2 & "%' " End Sub hata verirse her kod başına On Error Resume Next hataları telafi edeceğini sanıyorum. -

ben projeler de access kullanıyorum ama ado kullanın ca kodlar hep aynı olur sanırım Geri Kod: On Error Resume Next If Adodc1. Recordset. BOF Then Adodc1. Recordset. MoveNext Else Adodc1. Recordset. MovePrevious End If ileri: Kod: On Error Resume Next If Adodc1. Recordset. EOF Then Adodc1. Recordset. MovePrevious Else Adodc1. Recordset. MoveNext End If Ekle/Kaydet Kod: If Command3. Caption = "Ekle" Then Adodc1. Recordset. AddNew Command3. Caption = "Kaydet" ElseIf Command3. Caption = "Kaydet" Then Adodc1. Recordset. Update Command3. Caption = "Ekle" End If Sil: Kod: If Text1 = "" And Text2 = "" And Text3 = "" And Text4 = "" And Text5 = "" And Text6 = "" And Text7 = "" And Combo1 = "" And Image1. Tag = "" Then nosil = MsgBox ElseIf Data1. Recordset. BOF Then sil = MsgBox If sil = vbNo Then Else Data1. Recordset. Delete Data1. Recordset. MoveNext End If ElseIf Data1. Recordset. EOF Then sil = MsgBox If sil = vbNo Then Else Data1. Recordset. Delete Data1. Recordset. MovePrevious End If Else sil = MsgBox If sil = vbNo Then Else Data1. Recordset. Delete Data1. Recordset. MoveNext If Adodc1. Recordset. BOF Then Adodc1. Recordset. MoveNext ElseIf Adodc1. Recordset. EOF Then Adodc1. Recordset. MovePrevious End If End If End If Arama: Kod: Private Sub Text9_Change If Text9 = "" Then Adodc1. Recordset. Filter = adFilterNone Adodc1. Refresh Exit Sub End If Adodc1. Recordset. Filter = "tcno like '" & Text9 & "%' " End Sub

benim verdiklerim visual basic 6 dan ve işinize yarar beki diye vermiştim ado tahminimce hepsinde aynı ve kodların her projede olacağını tahmin ediyorum.