Textbox ların Access e kaydı

[Terkanli]

Selam Arkadaşlar,
Hazırladığım minicari yi access veritabanına çevirmeye çalışıyorum.
Kayıt için aşağıdaki kodda takıldım kaldım.
Denemek için aşağıdaki kodu düzenledim.
kaydet butonuna basınca textbox1,textbox2 ... kaydediyor ve Listview de görünüyor.

TextBox lara girdiğim verinin gelmesi için yardımcı olur musunuz.
Şu & "'," & dizisini aralara koymayı beceremedim. sıkıntı bastı.

Bir de böyle uzayıp gitmeden daha kısa bir yöntem var mı?

Saygılarımla,
Tansu

Conn.Execute "Insert into Clientele (ClientCod, ClientName, Address, ContactPerson, Assistant, Phone, PhoneDirect, Fax, Cellphone, TaxNo, BancNo, EMail, Notes, PicturePath, Debt, Credit, DebtBalance, CreditBalance)" & _
" values ('textbox1','textbox2','textbox3','textbox4','textbox5','textbox6','textbox7','textbox8','textbox9','textbox10','textbox11','textbox12','textbox13','TextResimKisaYol','0.00','0.00','0.00','0.00')"

 

[Terkanli]

Sorunumu çözdüm, diğer arkadaşlara yardımcı olmak için kodu aşağıya yazıyorum.

Private Sub CmdSave_Click()
Dim MyRecordset As New ADODB.Recordset
Set MyRecordset = New ADODB.Recordset
MyRecordset.Open "select*from Clientele ", Conn, 1, 3
With MyRecordset
.AddNew
.Fields!ClientCod.Value = TextBox1.Text
.Fields!ClientName.Value = TextBox2.Text
.Fields!Address.Value = TextBox3.Text
.Fields!ContactPerson.Value = TextBox4.Text
.Fields!Assistant.Value = TextBox5.Text
.Fields!Phone.Value = TextBox6.Text
.Fields!PhoneDirect.Value = TextBox7.Text
.Fields!Fax.Value = TextBox8.Text
.Fields!Cellphone.Value = TextBox9.Text
.Fields!TaxNo.Value = TextBox10.Text
.Fields!BancNo.Value = TextBox11.Text
.Fields!Email.Value = TextBox12.Text
.Fields!Notes.Value = TextBox13.Text
.Fields!PicturePath.Value = TextResimKisaYol.Text
.Fields!Debt.Value = "0.00"
.Fields!Credit.Value = "0.00"
.Fields!DebtBalance.Value = "0.00"
.Fields!CreditBalance.Value = "0.00"
.Update
End With
CmdSort_Click
Set MyRecordset = Nothing
End Sub

 

[Terkanli]

Bu işlemde access dosyasından ListView1'e verileri getirmek için;

Private Sub CmdSort_Click()
On Error Resume Next
Dim MyRecordset As New ADODB.Recordset, s As Integer
MyRecordset.Open "select*from Clientele ", Conn, adOpenDynamic, adLockOptimistic
s = 1
ListView1.ListItems.Clear
Do While Not MyRecordset.EOF
With ListView1
.ListItems.Add , , MyRecordset(0)
.ListItems(s).ListSubItems.Add , , MyRecordset(1)
.ListItems(s).ListSubItems.Add , , MyRecordset(2)
.ListItems(s).ListSubItems.Add , , MyRecordset(3)
.ListItems(s).ListSubItems.Add , , MyRecordset(4)
.ListItems(s).ListSubItems.Add , , MyRecordset(5)
.ListItems(s).ListSubItems.Add , , MyRecordset(6)
.ListItems(s).ListSubItems.Add , , MyRecordset(7)
.ListItems(s).ListSubItems.Add , , MyRecordset(8)
.ListItems(s).ListSubItems.Add , , MyRecordset(9)
.ListItems(s).ListSubItems.Add , , MyRecordset(10)
.ListItems(s).ListSubItems.Add , , MyRecordset(11)
.ListItems(s).ListSubItems.Add , , MyRecordset(12)
.ListItems(s).ListSubItems.Add , , MyRecordset(13)
.ListItems(s).ListSubItems.Add , , Format(MyRecordset(14), "#,##0.00")
.ListItems(s).ListSubItems.Add , , Format(MyRecordset(15), "#,##0.00")
.ListItems(s).ListSubItems.Add , , Format(MyRecordset(16), "#,##0.00")
.ListItems(s).ListSubItems.Add , , Format(MyRecordset(17), "#,##0.00")
s = s + 1
End With
MyRecordset.MoveNext
Loop
Set MyRecordset = Nothing
s = Empty
Toplam
End Sub

listView1 de 14, 15, 16, 17. sütunların toplamını alıyor.

Sub Toplam()
Dim BorcToplam As Double
Dim AlacakToplam As Double
Dim BorcBakiye As Double
Dim AlacakBakiye As Double
Dim i As Integer
With ListView1
For i = 1 To .ListItems.count
BorcToplam = Format(BorcToplam + ListView1.ListItems(i).SubItems(14))
AlacakToplam = Format(AlacakToplam + .ListItems(i).SubItems(15))
BorcBakiye = Format(BorcBakiye + ListView1.ListItems(i).SubItems(16))
AlacakBakiye = Format(AlacakBakiye + ListView1.ListItems(i).SubItems(17))
Next i
' UserForm üzerindeki Texbox lara toplamları yazıyor...
TextBox14.Value = Format(BorcToplam, "#,##0.00")
TextBox15.Value = Format(AlacakToplam, "#,##0.00")
TextBox16.Value = Format(BorcBakiye, "#,##0.00")
TextBox17.Value = Format(AlacakBakiye, "#,##0.00")
End With
End Sub