Public Function SplitVeriBul(GVeri As String, GSayi) As Variant
On Error Resume Next
Dim var As Variant
var = Split(GVeri, "|", -1)
SplitVeriBul = var(GSayi)
End Function
Sorguda,
SELECT SplitVeriBul([Alan1],0) AS ilksayi, SplitVeriBul([Alan1],1) AS ikincisayi, SplitVeriBul([Alan1],2) AS ucuncucisayi FROM Tablo1;
Tablo ismi Tablo1, tablodaki alanın ismi Alan1
Alan1'de 117|50|89|185|81 şeklinde veri olacak.