Vbasicte veri tabanı ile ilgili

hitx
31-03-2007, 18:17   |  #1  
OP Yeni Üye
Teşekkür Sayısı: 0
22 mesaj
Kayıt Tarihi:Kayıt: Mar 2007

Arkadaşlar slm,ben v.basicte bir veri tabanı oluşturdum ve program içinde textboxlardan girilen bilgilerin buraya kaydedilmesini ve program içinden de bu bilgilere ulaşılamamasını(görülmemesi)istiyorum.Ama hala yapamadım..Bana bu konuda yardımcı olabilecek arkadaşlar varsa sevinirim.Bide bu araç kutusundaki data nesnesini kullanmak zorundamıyız..? Şimdiden çok teşekkürler..

KraL_M3RMiii
01-04-2007, 04:56   |  #2  
Taze Üye
Teşekkür Sayısı: 0
7 mesaj
Kayıt Tarihi:Kayıt: Tem 2006

biras ugrastircak ama yardimci olayim hmn

private sub kaydet_clicl()
data1.refresh
data1.recordset.addnew
data1.recordset("adi")=text1.text
data1.recordset("soyadi")=text2.text
end sub

private sub sil_click()
Data1.Recordset.Delete
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst
end sub

private sub ara_click()
Dim A, B
A = Text3
B = "gorusmekistedigikisi='" & A & "'"
Data1.Recordset.FindFirst B
If Data1.Recordset("adi") = "" Then
MsgBox ("********arama bulunamadi*********")
End If
end sub

datayi veritabanina tanimlamayi biliosundur ben genede anlatayim
"add-ins"
menusunden "visual data maneger" tikla karsina gelen pencereden "file" den "new => microsorft access => version 7.0" sec. karsina gelen pencereden veritabanini ac
"data base window" da sag tikla "new table" de pencerede "table name (veri tabanin adi)", "field list" altindaki "add filed" tikala ve tablodaki bolumlerini olustur. "list index" penceresi altindaki "add list" tikla karsina gelen pencereden herhangi birini sec "name" ye de veri tabanin adini yaz. En son "Built the Table" tikla veritabanin olustu artik. UNUTMA: TÜRKCE KARAKTER KULLAMAK YOK!

text boxlarida tanitip data nin nerde oldugunu belirtiginde programin hazir hade sana kolay gele


Cok eski bir yontem SQL komutlari kullanarak yapmani tavsiye ederim

Kaos-220
11-04-2007, 22:35   |  #3  
Yıllanmış Üye
Teşekkür Sayısı: 0
284 mesaj
Kayıt Tarihi:Kayıt: Oca 2007

Text lerin hepsini işaretle sonra Propertis pencersinden Data sekmesindeki DATASOURCE yi Data1/Adodc1(hangisini kullanıyorsan) bağla, sorra Textleri ttek tek yine aynı yerden DataField kısmından veritanbanındaki alanlara bağla... sonrası kod

Private Sub Command1_Click()
Adodc1.Recordset.AddNew 'Kayıt Ekle
End Sub

Private Sub Command2_Click()
Adodc1.Recordset.Update 'Kaydet
Picture2.Picture = Clipboard.GetData() 'Panodaki resmi resim kutusunda göster
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.Delete 'Kayıt Sil
End Sub

Private Sub Command4_Click()
Adodc1.Refresh 'Yenile
End Sub

Private Sub Command5_Click()
Adodc1.Recordset.MoveFirst 'İlk Kayık
If Adodc1.Recordset.BOF Then
MsgBox "İlk kayıttasınız..."
Adodc1.Recordset.MoveFirst 'İlk Kayık
End If
End Sub

Private Sub Command6_Click()
Adodc1.Recordset.MoveLast 'Son Kayık
If Adodc1.Recordset.EOF Then
MsgBox "Son kayıttasınız..."
Adodc1.Recordset.MoveLast 'Son Kayık

End If

End Sub

Private Sub Command7_Click()
Adodc1.Recordset.MovePrevious 'Önceki Kayıt
If Adodc1.Recordset.BOF Then
MsgBox "İLK KAYITTASINIZ!..."
Adodc1.Recordset.MoveFirst 'Önceki Kayıt

End If

End Sub

Private Sub Command8_Click()
Adodc1.Recordset.MoveNext 'Sonraki Kayık
If Adodc1.Recordset.EOF Then
MsgBox "SON KAYITTASINIZ!..."
Adodc1.Recordset.MoveLast 'Sonraki Kayık

End If

Kaos-220
11-04-2007, 23:02   |  #4  
Yıllanmış Üye
Teşekkür Sayısı: 0
284 mesaj
Kayıt Tarihi:Kayıt: Oca 2007

sen ADOdc deilde data kullandıysan Adodc leri Data olarak değiştir...

Son Düzenleme: Kaos-220 ~ 11 Nisan 2007 23:14
PcMaKeR
13-04-2007, 23:24   |  #5  
PcMaKeR avatarı
Yıllanmış Üye
Teşekkür Sayısı: 6
8,935 mesaj
Kayıt Tarihi:Kayıt: Eki 2005

"program içinden de bu bilgilere ulaşılamamasını(görülmemesi)istiyorum."
verilerin görülmemesini istiyor ama. Kayıt Edildikten sonra bütün textleri Boşalt kod ile örneğin Text1.Text="" gibi