Bu derste veritabanındaki tek bir alana sığmayacak verileri bölüyoruz.-
-Bu kod çalıştırıldığında eğer deger 255 karakterden büyükse veri(0) dan başlayıp veri(6) ya kadar bölecektir. -
-
-Veritabanına şu şekilde yerleştirmelisiniz.--
Kod:
Sub Islem ' bir Sub tanımladık
If Len(deger) > 255 Then ' deger 255 karakterden büyükse
veri(part) = Mid(deger, 1, 255) ' geçerli dizi elemanı deger' in ilk 255 karakterini aldı
deger = Mid(deger, 255, Len(deger)) ' deger değişkeninden ilk 255 karakter çıkarıldı
part = part + 1 ' dizi index numarası 1 arttırıldı (sonraki dizi elemanına gidecek)
End If
End Sub
If Len(deger) > 255 Then Islem ' deger 255 karakterden büyükse "işlem" sub çalıştır
%>-Bu kod çalıştırıldığında eğer deger 255 karakterden büyükse veri(0) dan başlayıp veri(6) ya kadar bölecektir. -
-
-Veritabanına şu şekilde yerleştirmelisiniz.--
Kod:
rs("veri1")=veri(0)
rs("veri2")=veri(1)