Sorgu için arama sonuçları: Catalog

...xlCmdSql .Connection = Array( _ "OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=kullanıcıadı;pwd=sifre;Initial Catalog=catalog;Data Source=ipadress;Extended Properti" _ , _ "es="""";Use Procedure for Prepare=1;Auto Translate=True;Packet...

Merhabalar Data Source=" & ....... "; Initial Catalog=" & ...... & "; User ID=" & ..... & "; Password =" & .... & burada noktalı yerlere tam olarak neyi yazacağımı anlayamadım arkadaşlar kullanıcı adım ve şifrem var programa girişte ama server kullanıcı adı şifresini mi istiyor burada data...

....Connection = Array( _ "OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;User ID=sa;Initial Catalog=MikroDB_V14_ATOLYE2013;Data S" _ , _ "ource=motifserver;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation...

Arkadaşlar bu koddaki hata nedir listboxa veriyi alıyor ama garip karakterler koyuyor ve sıralı almıyor?

...New ADODB.Connection Set KSm = New ADODB.Recordset strConn = "PROVIDER=SQLOLEDB;" strConn = strConn & "DATA SOURCE=" & servername & ";INITIAL CATALOG=" & veritabani & ";" strConn = strConn & "UID=" & user & ";PWD=" & password Bagm.Open strConn LWAdi.ListItems.Clear With LWAdi On Error...

...Dim Katalog As Object, Data As Object, Tablo As Object Dim son1 Set Data = CreateObject("ADODB.Connection") Set Katalog = CreateObject("ADOX.Catalog") Data.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};Dbq=" & Dosya_Yolu & ";" Katalog.ActiveConnection = Data For Each...

...ADODB.Connection Set Ksm = New ADODB.Recordset strConn = "PROVIDER=SQLOLEDB;" strConn = strConn & "DATA SOURCE=" & server_ismi & ";INITIAL CATALOG=" & veritabani & ";" strConn = strConn & "UID=" & user & ";PWD=" & password Bagm.Open strConn MsgBox Sorgu With Ksm On Error Resume Next...

Merhabalar. Aşağıdaki kod ile kapalı dosyalara veri aktarıyorum. Kod sayın dentex arkadaşımıza aittir. Bir kez daha teşekkür ediyorum kendisine. Veri aktarırken "Ocak" adlı sayfa ile kapalı dosyalardaki "liste" adlı sayfaların E ve F sütunlarında ki değerler karşılaştırılıyor. Eşleşme...

...([sicilno] = '" & sicilno & "')" Baglanti.Open "Provider=SQLOLEDB.1;Password=********;Persist Security Info=True;User ID=**;Initial Catalog=********;Data Source=********" KayitSeti.Open sorgu, Baglanti Cells(3, 1).CopyFromRecordset KayitSeti KayitSeti.Close...

Sub DataAktar() strconnectstr = "Provider=SQLOLEDB.1;Password=******;Persist Security Info=True;User ID=*************;Initial Catalog=**************;Data Source=**********" Set objconnection = New ADODB.Connection objconnection.Open strconnectstr tarih = Format(Range("tarih").Value...

...Dim strConn As String, strSQL As String Dim lngRc As Long strConn = "PROVIDER=SQLOLEDB;" strConn = strConn & "DATA SOURCE=.;INITIAL CATALOG=DATA;" strConn = strConn & " User ID=sa;" strConn = strConn & " Password=1234;" strConn = strConn & " INTEGRATED SECURITY=sspi;" cnt.ConnectionString =...

...SIRKET = "DATA12" SIFRE = "1" MyCon.Open "Provider=SQLOLEDB.1;Password=" + SIFRE + ";Persist Security Info=True;User ID=" + USER + ";Initial Catalog=" + SIRKET + ";Data Source=" + SERVER + ";Use Procedure for Prepare=1;Auto Translate=False;Packet Size=4096;Workstation ID=SAYFA1;Use Encryption...

....Connection = Array( _ "OLEDB;Provider=SQLOLEDB.1;Password=Yar;Persist Security Info=True;User ID=sa;Initial Catalog=ImpexDB;Data Source=WIN-K8QGH7IV" _ , _ "TCF;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=IRFAN-PC;Use Encryption for...

...Object Set evn = CreateObject("adodb.connection") evn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=ETA_EKER_2010;" & _ "Data Source=pab;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=AHMET;Use Encryption " & _...

...serverden aşağıdaki gibi bilgilerimi alabiliyorum. BAĞLANTI: Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=ETA_PABINS_2010;Data Source=pab;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=AHMET;Use Encryption for...

...bekliyorum. iyi çalışmalar. Function GetShNames(WBName As String) As Collection Dim objConn As ADODB.Connection Dim objCat As ADOX.Catalog Dim tbl As ADOX.Table Dim sConnString As String Dim sSheet As String Dim Col As New Collection On Error GoTo...

Set cn = New Connection cn.Open "Provider=SQLOLEDB;Server=SERVER;User ID=sa;Password=123;Initial Catalog=DATA" Set rc = cn.Execute("SELECT [TC Kimlik Numarası], [Adı Soyadı], [Doğum Tarihi], [Baba Adı] FROM TcKimlikBilgileri Where [TC Kimlik Numarası]='" & [Tc Kimlik No] & "';") [Adı Soyadı] =...

...yapılıyor Call Main 'Set cnt = New ADODB.Connection 'strConn = "PROVIDER=SQLOLEDB;" 'strConn = strConn & "DATA SOURCE=192.168.0.7;INITIAL CATALOG=data09;" 'strConn = strConn & " INTEGRATED SECURITY=sspi;" 'cnt.Open strConn SQLCON.Open Set rst = New ADODB.Recordset With rst...

...As String, strAutoNum As String, lngID As Long) As Boolean 'Amaç: ADOX kullanarak otomatik sayıyı sıfırlamak. Dim cat As New ADOX.Catalog Set cat.ActiveConnection = CurrentProject.Connection cat.Tables(strTable).Columns(strAutoNum).Properties("Seed") = lngID Set cat =...

...AND (CEK_KART.DOC = 1) AND (ROLLER.RECSTATUS IN (1, 2)) Baglanti.Open "Provider=SQLOLEDB; Data Source=" & Server & "; Initial Catalog=" & Database & "; User ID=" & Kullanıcı & "; Password=" & Parola & ";" KayitSeti.Open Sorgu, Baglanti Cells(8, 1).CopyFromRecordset...