ADO Hatası
Tarih
01/12/2010 16:00
Konu Sahibi
Hayri16
Yorumlar
7
Okunma
2523
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Hayri16
Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
22/12/2015,15:41
Çözüldü 
Değerli Arkadaşlar;
Programım da kayıt bölümünde ADO kullanıyorum. Aşağıda verdiğim sub da görüntülerini eklediğim hatayı veriyor. Forumda bir kaç arama yaptım ama çözüm bulamadım. Yardımcı olabilecek arkadaşlara şimdiden teşekkür ederim.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
Private Sub kaydet_Click() 'Kayıt bölümü
Dim yeniyol As String
Dim yenidosya As String
Dim eskiyol As String
Dim eskidosya As String
Dim a1, a2, a3, say As Integer
Dim kayyer As String
Dim kaydos As String
Dim ekle As String



Metin129 = ""
' 1- Boşluk kontrolü yap
If fkitapad = "" Or IsNull(fkitapad) Then
MsgBox ("Kitap Adını boş geçemezsiniz")
fkitapad.SetFocus
Exit Sub
End If

'Dosya hazırlık işlemleri
eskidosya = dosyaad & "." & uzanti
      a1 = Len(Right(kitapseckutu.Column(1), Len(kitapseckutu.Column(1)) - InStrRev(kitapseckutu.Column(1), "\")))
      a2 = Len(kitapseckutu.Column(1))
      a3 = a2 - a1
eskiyol = Left(kitapseckutu.Column(1), a3)
Metin129 = eskiyol
yenidosya = fkitapad & "." & uzanti
yeniyol = CurrentProject.Path & "\" & "KITAP" & "\"
 
 ' Seçeneklere bak

If adsecim = 1 And yersecim = 1 Then   'ad değiştir, klasöre kopyala
FileCopy kitapseckutu.Column(1), yeniyol & yenidosya
kaydos = yenidosya
kayyer = yeniyol & yenidosya
'eskisini silme mesajı
  ElseIf adsecim = 1 And yersecim = 2 Then  'ad değiştir , olduğu yerde bırak
  FileCopy kitapseckutu.Column(1), eskiyol & yenidosya
  kaydos = yenidosya
  kayyer = eskiyol & yenidosya
  'eskisini silme mesajı
    ElseIf adsecim = 2 And yersecim = 1 Then 'ad kalsın, klasöre kopyala
    FileCopy kitapseckutu.Column(1), yeniyol & eskidosya
    kaydos = eskidosya
    kayyer = yeniyol & eskidosya
    'eskisini silme mesajı
End If

 Dim rs As New ADODB.Recordset
 rs.Open "F_KITAP", CurrentProject.Connection, adOpenDynamic, adLockOptimistic

'With rs
 rs.AddNew
  rs("kitapadi") = fkitapad
  rs("yeri") = kayyer
  rs("sayfa") = fsayfa
  rs("edbturno") = edebiturkutu
  rs("genturno") = genelturkutu
  rs("altturno") = altturkutu
  rs("ozturno") = ozelturkutu
  'burada sorun olabilir.
  If ankelliste <> "" Or ankelliste <> Null Then 'ankelliste boş değilse
     For say = 0 To ankelliste.ListCount - 1
       rs("ankelno" & say + 1) = ankelliste.Column(0, say)
     Next
  End If
  
  rs("yayinevino") = yayevikutu
  rs("basyil") = fbasyil
  rs("basno") = fbassay
  rs("kisakonu") = fkisakonu
  rs("okunma") = oku
  rs("onkapakyolu") = fonkapakyolu
  rs("arkakapakyolu") = farkakapakyolu
  rs("dilno") = dilkutu
rs.Update
'End With
 rs.Close
 

'Yazar bağnatılarını yap

If secilenyazarliste <> "" Or secilenyazarliste <> Null Then 'yazar seçilmişse...
For say = 0 To secilenyazarliste.ListCount - 1
   ekle = "INSERT INTO T_YAZARBAG ( kitapno, yazarno)" _
        & " values(fkno,secilenyazarliste.column(0,say))"
   DoCmd.RunSQL ekle
Next
End If
'Çevirmen bağlantılarını yap

If secilencevirmenliste <> "" Or secilencevirmenliste <> Null Then 'cevirmen seçilmişse...
For say = 0 To secilencevirmenliste.ListCount - 1
   ekle = "INSERT INTO T_CEVIRMENBAG ( kitapno, cevirmenno)" _
        & " values(fkno,secilencevirmenliste.column(0,say))"
   DoCmd.RunSQL ekle
Next
End If

'Notlar bağlantılarını yap
 
If faciklama <> "" Or faciklama <> Null Then   'not kısmında yazı varsa
  ekle = "INSERT INTO T_NOTLAR ( kitapno, aciklama)" _
        & " values(fkno,'" & faciklama & "' )"
   DoCmd.RunSQL ekle
End If

'geçici dosyadan sil

' Mesajı ver
MsgBox (fkitapad & " adlı kitabınızın kaydı başarıyla tamamlanmıştır")
' Ekranı temizle yeni kayda hazırla
temizle
kitapseckutu.SetFocus


End Sub




Ek Dosyalar Ekran Görüntüleri
           
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.859
02/04/2010
İzmir
Ofis 2003
Bugün,13:38
Çözüldü 
Sponsor Reklam
rsopen "SELECT * FROM F_KİTAP", .......

şeklinde denermisiniz...
Please return your positive or negative ...
Cevapla

Hayri16
Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
22/12/2015,15:41
Çözüldü 
İlginize çok teşekkür ederim Sayın horozufuk;
Ama maalesef olmadı. Aşağıdaki hatayı aldım.


Ek Dosyalar Ekran Görüntüleri
   
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.859
02/04/2010
İzmir
Ofis 2003
Bugün,13:38
Çözüldü 
Sponsor Reklam
FROM yazmayı unutmuşum tekrar deneyiniz.

Please return your positive or negative ...
Cevapla

Hayri16
Aktif Üye
Kullanici Avatari
Aktif Üye
1.010
12/11/2009
294
Bursa
Ofis 2007
22/12/2015,15:41
Çözüldü 
Bu seferki hata mesajımız şöyle;


Ek Dosyalar Ekran Görüntüleri
   
Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.859
02/04/2010
İzmir
Ofis 2003
Bugün,13:38
Çözüldü 
Sponsor Reklam
Örneğinizi eklermisiniz.

Please return your positive or negative ...
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Genel Toplam Hatası SOSS06 6 73 8 saat önce SMMM.
Çözüldü Data Type Mismatch Hatası Hakkında alperalper00 8 6.850 20/05/2017, 20:17 ozanakkaya
  Versiyon Hatası mustafakucuknazli 3 135 13/05/2017, 12:21 atoz112
  Bağlı Tablo Yöneticisi "Geçersiz Parola" Hatası cudii 3 70 03/05/2017, 20:39 ozanakkaya
  Subform Failed Hatası raburabu 2 77 02/05/2017, 08:28 raburabu


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status