Sorgu için arama sonuçları: adodb

Çok teşekkür ederim Halil Hocam iyiki varsınız! şimdi benim bu alagoritmayı iyice bir içselleştirdikten sonra biraz geliştirmek istiyorum. Örnek: şimdiye kadar 2. alanı (x1, x2) kontrol ediyorduk, şimdi bana düşen aynı şekilde 3. alanı da (x3) buraya entegre etmek olacak Selamlar, Saygılar.

...Sub SorguAdet_hy_5_2() Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.ClearContents...

Müsait olunca ilk fırsaata deneyeceğim Hocam Çok teşekkür ederim, emeğinize sağlık!

...)Sub SorguAdet_hy_5() Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.ClearContents...

...Sub SorguAdet_hy3_1() Dim Con As Object Dim Sorgu As String Dim yol As String Application.ScreenUpdating = False Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.ClearContents Con.Open "provider=microsoft.ace.oledb.12.0;data source="...

...bu kurala uygun sorgu nasıl düzenlebilir? Sub sorguu() Dim Con As Object Dim Sorgu As String Dim yol As String Set Con = VBA.CreateObject("adodb.Connection") yol = ThisWorkbook.FullName Sayfa2.Activate Sayfa2.Cells.ClearContents Con.Open "provider=microsoft.ace.oledb.12.0;data source="...

...Dim searchKeyword As String Dim rs As Object Dim baglan As Object ' Bağlantıyı açmak için Set baglan = CreateObject("ADODB.connection") baglan.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\Datalar.accdb" ' Text kutusundaki...

MERHABA BEN office365 kullanıyorum sanırım bu kodlar benim excel e uymuyor hocam uyarladım çalışmıyor zaten teşekkürler. bunun office365 e uyumlu olanı olsaydı denerdim.

...Dim X As Integer Dim No As String -------------------------------- Sub TCSorgula() On Error Resume Next Set My_Connection = CreateObject("AdoDb.Connection") Set My_Recordset = CreateObject("AdoDb.Recordset") My_Connection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _...

bence bu çözüm güzel bir fikir teşekkür ederim. Userform1.txtQuantity.Value = Replace(CStr(rst!Miktar), ".", ",")

Set rst = New ADODB.Recordset SQL = "Select * From tbl_Orders" SQL = SQL & " Where Id= " & sId rst.Open SQL, cn, 1, 3 Userform1.txtQuantity.Value = Replace(CStr(rst!Miktar), ".", ",") veya Private Sub txtQuantity_Change() If InStr(1, txtQuantity, ".") > 0 Then txtQuantity.Value =...

...olayı ile çözmeye çalıştım ama çok içime sinmedi, yalnız bunun daha farklı ve daha profesyonel bir yolu olabilir mi? Set rst = New ADODB.Recordset SQL = "Select * From tbl_Orders" SQL = SQL & " Where Id= " & sId rst.Open SQL, cn, 1, 3 Userform1.txtQuantity.Value =...

...WB2 = "D:\SU SİRKÜLASYON.xlsm" Set WS = ThisWorkbook.Sheets("Sheet1") Set My_Connection = VBA.CreateObject("AdoDB.Connection") Set My_Recordset = VBA.CreateObject("AdoDB.Recordset") On Error GoTo ErrorHandler My_Connection.Open...

...= 1 Dim objXML As Object Dim objDocElem As Object Dim objStream As Object Set objStream = CreateObject("ADODB.Stream") objStream.Type = adTypeBinary objStream.Open objStream.LoadFromFile (strPicPath) ' XML Döküman nesnesi ve veriyi içerecek kök...

hocam çalıştı harikasınız ellerinize sağlık tuğkan hocam siz de çok sağolun yardımlarınız için minnettarım, yaklaşık parça parça olmak üzere 20.000 sayfa rapor inceleyeceğim 25-30 adet bir dizi kelimeyi bulup renklendirdiğimde inceleme işim çok kolaylaşacak kıymetli zamanlarını bana ayırıp...

...As String Dim kelime As Variant Dim count As Integer myFile = "C:\DosyaYolu\file.txt" Set adoStream = CreateObject("ADODB.Stream") adoStream.Type = 2 ' Metin tipi adoStream.Charset = "utf-8" adoStream.Open adoStream.LoadFromFile myFile fileContent =...

Hocam dediklerinizi uyguladım çalışmadı.Eğer sorun oluyorsa yazdıklarım mesajlar silinebilir başkasının konusu olduğu için. https://dosya.co/42itg5lhhj6n/sqliteden_excele_Ado_ile_utf-8_siz.zip.html

İlk fırsatta deneyeceğim hocam.Garip olan sqlite proğramlarında sorgu ile sıralamada dediğim sorun oluyordu.

...= 3 ekleyince Türkçe sıralamada sorun çıkarmadı Sub xSıraliVeri() Dim con As Object, rs As Object Set con = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") con.Open "DRIVER=SQLite3 ODBC Driver;Database=" & ThisWorkbook.Path & "\deneme.db;"...

...dzUygun = Sayfa1.Range("MusaitPersonel") Set UyGun_Rs = CreateObject("ADODB.Recordset") With UyGun_Rs .Fields.Append "Kisi", 200, 100 .Fields.Append "UyGun", 200, 100 .Fields.Append "NobetSay", 3 .Fields.Append "UyGunSay", 3 .Open...