Klasik ASP Excel İçe Aktar Modülü Yaptırılacaktır.

16-02-2022, 10:49:47

Merhaba arkadaşlar klasik ASP ile yazılmış scriptde excel içe aktar modülü yaptırılacaktır.

İlgilenenler ve detaylar için 0555 079 39 on beş Whatsapp

21-02-2022, 03:14:00

#2

oktayman

pm atabilir misiniz

27-02-2022, 20:25:00

#3

LaSoMBRa

Kimlik doğrulama veya yönetimden onay bekliyor.

Detayları iletirseniz daha önce bu tarz çalışmalar yaptım. Yardımcı olurum

01-05-2023, 04:34:22

#4

mehmetkul

<%
Dim objStream, objRS, strConnString, strSQL, objConn

' Excel dosyasının yüklendiği klasör yolunu belirleyin
Dim strFolderPath
strFolderPath = "C:\uploads\"

' Yüklenen dosyanın adını alın
Dim strFileName
strFileName = Request.Form("fileUpload").FileName

' Dosyanın tam yolu
Dim strFilePath
strFilePath = strFolderPath & strFileName

' Excel verilerini okumak için kullanılacak bağlantı dizesi
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilePath & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"

' Bağlantı nesnesi oluşturun ve veritabanına bağlanın
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnString

' Excel verilerini içeren sorguyu oluşturun
strSQL = "SELECT * FROM [Sheet1$]"

' Recordset nesnesi oluşturun ve verileri çekin
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn

' Verileri döngüyle okuyun
Do Until objRS.EOF
    Response.Write "Ad: " & objRS("Ad") & "<br>"
    Response.Write "Soyad: " & objRS("Soyad") & "<br>"
    Response.Write "E-posta: " & objRS("E-posta") & "<br>"
    objRS.MoveNext
Loop

' Nesneleri temizleyin
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>