Sorgu için arama sonuçları: adodb

...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...

Çok teşekkür ederim Hocam, iyi hafta sonları..

Public Function Baglan() As ADODB.Connection Dim adoCN As ADODB.Connection Dim DatabasePath As String Set adoCN = New ADODB.Connection DatabasePath = ThisWorkbook.Path & "\VT.mdb" On Error GoTo ErrorHandler adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"...

deneyip, size dönüş yapacağım Hocam

...için kodunuzu şu şekilde revize edip deneyebilir misiniz; Sub Connect() Dim myPath As String Dim SQL As String Dim cn As ADODB.Connection Dim RS As ADODB.Recordset Set cn = New ADODB.Connection Set RS = New ADODB.Recordset myPath = ThisWorkbook.Path With cn...

...tür önerileriniz olabilir? destekleriniz için şimdiden teşekkürler, Sub Connect() Dim myPath As String Dim SQL As String Set cn = New ADODB.Connection Set RS = New ADODB.Recordset myPath = ThisWorkbook.Path With cn .Provider =...