Excelden Veri Tabanını Güncelleme

[Necdet Yeşertener]

Merhabalar,

Arkadaşlar excelden veri tabanını (oracle) günlemek için kod örneğine gereksinimim var.

Örneğin A sütunu Sicilleri B sütunu da örneğin ücret olsun. Sicili bulup ücretini günleyen basit bir kod örneği olsa benim için yeterli. Nasıl yapıldığını görsem sanırım yeterli olacaktır.

Veri tabanı alanı SICIL ve UCRET, table da PERSON olursa sanırım daha rahat anlarım.

Şimdiden teşekkürler.

[Zeki Gürsoy]

Merhaba,

Connection sorununuz olmadığını ve sicil sutununun string olduğunu varsayarsak şöyle bir syntax olabilir:

update [person]
set [ucret] = xxx
where [sicil] = 'yyy'
Burada sicil no = 'yyy' olan kişinin ücreti xxx olarak güncelleniyor.

[Zeki Gürsoy]

Ayrıca buradan Oracle 9 için SQL reference öğrenebilirsiniz..


http://www.lorentzcenter.nl/awcourse/oracle/server.920/a96540/toc.htm

[Necdet Yeşertener]

Merhaba Zeki Bey,

Kod için teşekkür ederim update sintaxsını zaten biliyorum, benim derdim, exceldeki her bilgi için mi veri tabanına bağlanacak, onu anlamadım.

Yani excelde 10 satır varsa yapı nasıl olmalı?

[Zeki Gürsoy]

Tek connection ve 10 Execute kullanılacak.

[Necdet Yeşertener]

Örnek rica etsem?

Connection da dahil olmak üzere, olası mı Zeki Bey?

[beab05]

Merhabalar;

Oracle için Connection String'i alttaki adresten alabilirsiniz.

http://www.connectionstrings.com/?carrier=oracle


Dim cnn As New ADODB.Connection
Set cnn = New ADODB.Connection
cnn.ConnectionString = "oracle connection satırı"
cnn.Open
cnn.Execute " update [person] set [ucret] = xxx where [sicil] = 'yyy'; "
cnn.Close
Set cnn = Nothing

[Necdet Yeşertener]

Sayın Zeki Bey, Sayın beab05,

Yarın işyerinde deneyeceğim, sonucu bildiririm.

Teşekkürler.

[Necdet Yeşertener]

Merhaba,

Dim cnn As New ADODB.Connection
Set cnn = New ADODB.Connection
cnn.ConnectionString = "ODBC;DRIVER={Microsoft ODBC for Oracle};UID=necdet;PWD=necdet;SERVER=oracle8;"

kırmızı olan satırda :

Compile error:

User-defined type not defined hatası alıyorum. Birşey eksik ama ne ?

[Haluk]

ADO referanslarını ekleyin ya da, değişkenleri Late Binding olarak deklare edin...

.

[Ferhat Pazarçevirdi]

Aşağıdaki gibi bir kalıp kullanabilirsiniz.

Sub DENEME()

'Ref : Microsoft Activex Data Object 2.X Library

Dim cnn As ADODB.Connection
Dim sSql As String
Dim i As Integer

Set cnn = New ADODB.Connection

With cnn
.ConnectionString = "Buraya Connection stringinizi yazın"
.Open
End With

For i = 1 To 10

sSql = "UPDATE [person] " & _
"SET [ucret] =" & Cells(i, 2) & " " & _
"WHERE [sicil] = '" & Cells(i, 1) & "'; "

cnn.Execute (Sql)


Next i

cnn.Close
Set cnn = Nothing

End Sub

[Necdet Yeşertener]

Çok teşekkürler arkadaşlar.

Ferhat Bey, bütün numara Microsoft Activex Data Object te imiş, onu keşfettim. Günleme işleminde de başarılı oldum. Kodlar aşağıdaki gibi oldu.


Sub baglan()
Dim i As Integer
Dim cnn As New ADODB.Connection
Set cnn = New ADODB.Connection
cnn.ConnectionString = "DRIVER={Microsoft ODBC for Oracle};UID=necdet;PWD=sifrem;SERVER=oracle8"
cnn.Open
For i = 2 To [A65536].End(3).Row
cnn.Execute " update necdet set job = '" & Cells(i, "C") & "' where empno = " & Cells(i, "A")
Next i
cnn.Close
Set cnn = Nothing
End Sub

[Ferhat Pazarçevirdi]

Eee. Necdet hocam, siz lalenin peşinden koşarken; ayağınızın altındaki papatyayı farketmemişsiniz anlaşılan :) Allah başka dert vermesin ...

[Necdet Yeşertener]

Sayenizde yeni bir şey daha öğrenmiş olduk. Artık kim tutar beni :)

[Haluk]

Artık kim tutar beni :)

Eklediğiniz referansa sahip olmayan herhangi bir PC çok rahat tutar...

[Kemal Demir]

Necdet hocam,

Haluk hocamız tutar :)

[Necdet Yeşertener]

Haluk Bey,

Benim bilgisayarımdan başka bir bilgisayarda çalışmayacak :)

O yüzden önemli değil başka bilgisayar :)

[Kemal Demir]

Araya limon gibi girmişim behhh :arkadas:

[Necdet Yeşertener]

Limon ne demek Kemal Bey,

Hem öğreneceğiz hem takılacağız, işin sırrı bu :)

[Kemal Demir]

Evet haklısın hocam.