Teknoloji Haberleri
Aşağı Git
Tüm Forumlar
Web Tasarım - Programlama
Yazılım Geliştirme
Asp / Asp.NET
aspde excel dosyasından veri alarak accessa işlemek
Bu konudaki kullanıcılar: 1 misafir
5
Cevap 471
Tıklama 0
Öne Çıkarma
Cevap 471
Tıklama 0
Öne Çıkarma
1. sayfa
-
aspde excel dosyasından veri alarak accessa işlemek
|
eyvallah sağolda istediğimi orada bulamadım. sanırım istediğimi tam anlatamadım.. ben bir intranet yapacağım ve asp ile intranete veri girişlerinde genelde excel dosyasından accesa veri aktarımı olacak ancak bunu halledemedim. bunu nasıl yapacağıma dair biraz araştırdım ancak çok sağlıklı bir bilgi bulamadım. bilen arkadaş varsa beni bu konuda aydınlatırsa sevineceğim... |
Bu mesaja 1 cevap geldi.
|
Ben visual Basic ile Excel den SQL' e veri aktarımı yapmıştım. Asp yi tam olarak bilmiyorum ama sanırım visual basic e benziyor. Belki bir fikir verir diye yaptığım çalışmayı yapıştırıyorum. Sub ExcelToSql() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim lJoker As Long Dim MyExcel As Object Set MyExcel = CreateObject("Excel.Application") MyExcel.Visible = True MyExcel.Workbooks.Open (App.Path & "\Bayi2005.xls") Set cn = New ADODB.Connection cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=MD_DEN;Data Source=METINDIREK;" açıklama...: MD_DEN benim sql de oluşturduğum database in adı, METINDIREK ise benim pc nin adı Set rs = New ADODB.Recordset rs.Open "BayiList", cn, adOpenKeyset, adLockOptimistic, adCmdTable lJoker = 3 cn.Execute "DELETE FROM BayiList" Do While Len(MyExcel.Range("A" & lJoker).Formula) > 0 With rs .AddNew ' yeni kayıt ekle !SiraNo = MyExcel.Range("A" & lJoker).Value !FirmaAdi = MyExcel.Range("B" & lJoker).Value !Adres = MyExcel.Range("C" & lJoker).Value !Ilce = MyExcel.Range("D" & lJoker).Value !Il = MyExcel.Range("E" & lJoker).Value !Tel = MyExcel.Range("F" & lJoker).Value !Yetkili = MyExcel.Range("G" & lJoker).Value .Update ' Verileri update et. End With lJoker = lJoker + 1 ' Bir sonraki satıra geç Loop rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub |
Bu mesaja 1 cevap geldi.
|
hadi excelden accessa asp yardımıyla veri girişi yapmaktan vazgeçtim.. excelden asp yardımıyla nasıl bilgi alırım. metind arkadaşım verdiğin kodlar elbet çalışan koddur ancak ben bunu aspye çeviremedim... |
Bu mesaja 1 cevap geldi.
Yukarıdaki VB kodu rahatlıkla küçük bir iki edit ile ASP ye çevirilebilir. Dikkat edicen nokta sadece Veritabanı bağlantı kodu. Burada Excel için sanıyorum özel bir bağlantı kodu kullanılır. http://www.aspin.com/home/components/document/excel Buradaki componenti kullanarak Ofis pogramları içindeki verileri yazılabilir rapor halinde görüntüleyebilirsin. http://www.tutorialized.com/tutorial/Create-Excel-from-Form-Input/1891 Buda incelemen için deişik bir kod yaklaşımı tamamen ASP Bunları öncelikle inceledikten sonra bağlantı stringi olarak şunu kullanmayı deneyebilirsin... Con.Open "Driver={Microsoft Excel Driver (*.xls)};" & _ "DriverId=790;" & _ "Dbq=c:\somepath\mySpreadsheet.xls;" & _ "DefaultDir=c:\somepath" Con bağlantı objesidir... Kolay gelsin... |
1. sayfa
DH Mobil uygulaması ile devam edin.
Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin.
Gizle ve güncelleme çıkana kadar tekrar gösterme.
bunu nasıl halledebiliriz..
< Bu mesaj bu kişi tarafından değiştirildi SaLVaDoR -- 3 Temmuz 2005, 19:34:01 >