- Katılım
- 11 Mart 2005
- Mesajlar
- 3,043
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhabalar,
Ado Recorset ile dolu olan bir alanı boş olarak güncellemel istediğimde;
eğer güncellenecek olan boş bir değer olduğunda hata olduğunda hata veriyor.
Dolu bir değeri boş olarak güncellemek için nasıl bir çözüm yolu öneririsiniz
teşekkürler,
iyi Akşamlar.
Ado Recorset ile dolu olan bir alanı boş olarak güncellemel istediğimde;
eğer güncellenecek olan boş bir değer olduğunda hata olduğunda hata veriyor.
Dolu bir değeri boş olarak güncellemek için nasıl bir çözüm yolu öneririsiniz
teşekkürler,
iyi Akşamlar.
Kod:
Public Sub updateSQL(table As String, param As String, arr As Variant)
Dim RST As Object
Dim deger As Variant
Dim SQL As String
Dim i As Integer
Dim j As Integer
''On Error Resume Next
Set RST = VBA.CreateObject("ADODB.Recordset")
SQL = "SELECT * From [" & table & "$" & param & "]"
RST.Open SQL, con, 1, 3
For i = LBound(arr) To UBound(arr)
If IsEmpty(arr(i)) Then
deger = ""
Else
deger = arr(i)
End If
RST(i) = deger
Next i
RST.Update
RST.Close
End Sub