ADO Hatası
Tarih
01/12/2010 16:00
Konu Sahibi
Hayri16
Yorumlar
7
Okunma
2389
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
291
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.848
02/04/2010
İzmir
Ofis 2003
Bugün,12:29
Çözüldü 
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
291
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.848
02/04/2010
İzmir
Ofis 2003
Bugün,12:29
Çözüldü 
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
291
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.848
02/04/2010
İzmir
Ofis 2003
Bugün,12:29
Çözüldü 
Ö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
  OLE server or ActiveX Control hatası temre 4 131 05/12/2016, 22:44 ozanakkaya
  Parametre girin hatası nightashes 3 56 04/12/2016, 23:07 Mesut Kaytan
  method or data hatası murat dikme 7 112 02/12/2016, 19:04 murat dikme
  Sms Göndermede Port Hatası kadirdursun 4 188 28/11/2016, 14:23 atoz112
  Excelden Veri Aktarımı Hatası Xleash 6 141 25/11/2016, 10:52 Xleash


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya