...var mesajı veriyor. bunu silmek istemiyorum. içine surekli eklenmesi gerek cunku. tesekkurler
Dim Baglan As Object
Dim Katalog As ADOX.Catalog
Dim Komut As String
Dim Kaynak_Dosya As String
Dim Hedef_Dosya As String
Set Baglan = CreateObject("ADODB.connection")...
...otomatik sayı olarak atanmasını istiyorum.hangi kodları eklemem lazım?
yardımlarınız için teşekkürler.
saygılar:yardim:
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim Şifre As String
Dim...
...nasıl aktarabiliriz.
yardımlarınız için şimdiden teşekkürler saygılar:yardim:
kod:
Option Explicit
Sub Düğme1_Tıklat()
Dim cat As New ADOX.Catalog
Dim Şifre As String
Dim DatabasePath As String
Şifre = "iso"
DatabasePath = ThisWorkbook.Path & "\iso.mdb"
cat.Create...
...Bu kodu sözkonusu şekilde ayarlayacak arkadaşlara şimdiden teşekkürler. Kod şöyle:
Private Sub vtyap_Click()
Dim Yol As String
Dim Cat As Object
Yol = "C:\vt1.mdb"
Set Cat = CreateObject("ADOX.Catalog")
Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Yol
End Sub
...Dim Cat As Object
Dim NewTable As Object
DatabasePath = App.Path + "\Tools\Data.mdb "
Set Cat = CreateObject("ADOX.Catalog")
Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabasePath
Set NewTable = CreateObject("ADOX.Table")
With NewTable...
...Dim Yol As String
Dim Cat As Object
Dim NewTable As Object
Yol = "C:\Evren\MDB\db2.mdb"
Set Cat = CreateObject("ADOX.Catalog")
Cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Yol
Set NewTable = CreateObject("ADOX.Table")
With NewTable...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.