DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Test()
Dim cn As String
Dim cat As Object
cn = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & _
ThisWorkbook.Path & "\CV.mdb"
Set cat = CreateObject("ADOX.Catalog")
cat.ActiveConnection = cn
cat.Tables("cvh").Columns(2).Name = "zeki_gursoy"
cat.ActiveConnection = Nothing
Set cat = Nothing
End Sub
- Araştırmaktan yılmayın, konuyla ilgili tüm dokumanları okuyun, örneklerle okuduğunuzu uygulayın,Teşekkür ederim. Sonuca ulaştım. Bu konularda kendimi geliştirmek istiyorum. Kaynak olarak ne kullanmalıyım?