Kapalı acsess dosyasındaki alan adını değiştirmek

[agreee]

Exceldeki bir button ile kapalı accsess dosyasında alan açmak ve alan adını istediğimiz değeri vermek nasıl olur. Yardımcı olursanız sevinirm.
Saygılar

 

[agreee]

Konu hakkında bilgi alabilirmiyim

 

[modalı]

Sayın agree,

Ekleyeceğiniz alanın özellikleri ne olacak?

En iyisi biraz açıklayıcı bilgi ve örnek ekleyebilirseniz daha isabetli cevap alabilirsiniz.

İyi çalışmalar

 

[agreee]

Private Sub CommandButton1_Click()

Dim Baglan As New ADODB.Connection
Dim Kayit As New ADODB.Recordset
On Error Resume Next
Set Baglan = New ADODB.Connection
Baglan.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\CV.mdb;"
Set Kayit = New ADODB.Recordset
Kayit.Open "SELECT * FROM [cvh]", Baglan, adOpenDynamic, adLockOptimistic




Sheets("Sayfa1").Cells(1, 1).Value = Kayit.Fields(2).Name 'gerçekleştiriyor

Kayit.Fields(2).Name = Sheets("Sayfa1").Cells(1, 1).Value '(bu işlemi gerçekleştirmiyor)


Kayit.Close
Baglan.Close
Set Kayit = Nothing
Set Baglan = Nothing
End Sub

 

[Zeki Gürsoy]

İyi geceler,

Şunu deneyin.

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

 

[agreee]

Teşekkür ederim. Sonuca ulaştım. Bu konularda kendimi geliştirmek istiyorum. Kaynak olarak ne kullanmalıyım?

 

[agreee]

isim yazıp yeni alan açtırmak isiyorum .( Fazla olmadıysa) Bu konuda da yardımcı olabilirmisiniz rica etsem.

 

[Zeki Gürsoy]

Teşekkür ederim. Sonuca ulaştım. Bu konularda kendimi geliştirmek istiyorum. Kaynak olarak ne kullanmalıyım?

- Araştırmaktan yılmayın, konuyla ilgili tüm dokumanları okuyun, örneklerle okuduğunuzu uygulayın,
- Forumu sık ziyaret edin, takıldığınız yerde soru başlığı açın
- Başlangıç için: http://www.excel.web.tr/forumdisplay.php?f=117

 

[agreee]

Bu site bana çok yardımcı oldu iş hayatımı bile etkiledi size ve diğer arkadaşlarıma teşekkür ederim.
Saygılarımla,