Programalama > VISUAL BASIC

Etiketler: excel, visual, basic, kullanarak

Ort. 0
Puan ver:
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
Sub verial(p_tarih As Date)
'İll olarak VB editörden Tools/Preferences den ADO lib.leri
'bir kereye mahsus yükleyelim.
 
Dim conn As New Connection
Dim rs   As New Recordset
Dim kom  As New Command
 
'İlk olarak connection string i yazıyoruz.
 
With conn
    .ConnectionString = "Provider=MSDAORA.1;User ID=heb;password = heb;Data Source=beta;Persist Security Info=False"
    .Open
End With
 
'Daha sonra ORACLE veritabanında heb/heb username/password için
'bir select statement yazıyoruz.
'heb_tablo tablosunda tarih = '31.03.2003' e ait kayıtları seçiyoruz.
'tablo; tarih,excel,tutar alanlarından oluşuyor.
 
sql1 = "select * from heb_tablo where tarih = '31.03.2003'"
 
rs.Open sql1, conn, adOpenDynamic
rs.MoveFirst
 
For i = 1 To 50
 
excelsira = rs.Fields("excel").Value
p_tutar = rs.Fields("tutar").Value
 
Cells(excelsira, 3).Select
ActiveCell.FormulaR1C1 = p_tutar
 
rs.MoveNext
 
Next i
 
End Sub


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2025 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.