tabloya text ile ulaşmak

[Fuat Şirin]

    Adodc6.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & App.Path & "\Magza.mdb"
    Adodc6.CommandType = adCmdText
    Adodc6.RecordSource = "select * from [COLOR="Red"]DURUM[/COLOR] ORDER BY SATICI"

Burda durum tablosuna değilde
text1 de yazan tablo ismine bağlanmak istiyorum

birde aynı klasördeki değilde
c:\a\magza.mdb dosyasına bağlanmak istiyorum nasıl yaparım değerli hocalarım

 

[modalı]

Sayın Fuat Şirin,

Her cevabımda bağlantı cumlesini ekliyorum. Nasıl bir daha soruyorsunuz.

Adodc6.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" C:\Magza.mdb"
    Adodc6.CommandType = adCmdText
    Adodc6.RecordSource = "select * from " & Text1.Text & " ORDER BY SATICI"

İyi çalışmalar

 

[Fuat Şirin]

özür dilerim hocam

hocam öncelikle yardımcı olduğunuz için teşşekkür

bağlantı için kusura bakmayın ben size başka bişey sorcaktım
bağlantıyı ben düzeltirken kafam dondu size yaptığım şeyi yazmışım

Private Sub Command3_Click()
On Error Resume Next
Dim adoxCatalog As ADOX.Catalog
Dim adoxTable As ADOX.Table
Dim adoCN As ADODB.Connection
 
 
'Veritabanıyla bağlantı oluşturuyoruz
Set adoCN = New ADODB.Connection
With adoCN
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "C:\A\1.mdb"
    .Open
End With
     
     
'Uygulama katalogunu bağlantıya atıyoruz
Set adoxCatalog = New ADOX.Catalog
Set adoxCatalog.ActiveConnection = adoCN
 
 
'Yeni tablo oluşturuyoruz
Set adoxTable = New ADOX.Table
With adoxTable
    .Name = Text1.Text  'Buraya sanırım Text1.Text gelmesi lazım
    .Columns.Append "TARİH"
    .Columns.Append "BARKOD"
    .Columns.Append "CINSI/ACIKLAMA"
    .Columns.Append "RENK"
    .Columns.Append "NO"
    .Columns.Append "FIYAT"
    .Columns.Append "MİKTAR"
    .Columns.Append "TUTAR"
    .Columns.Append "ODEME"

    .Keys.Append "PrimaryKeyItemID", adKeyPrimary, "ItemID"
End With
 
 
'Tabloyu uygulamaya ekliyoruz
adoxCatalog.Tables.Append adoxTable
 
adoCN.Close
Set adoxTable = Nothing
 Set adoxCatalog = Nothing
End Sub

bu verdiğiniz kodlarla tablo oluşturuyorum
fakat
oluşan tabloya veri giremiyorum

saygılar...

 

[Tarkan VURAL]

Buradaki kodlamada sadece tablo oluşturma işlemleri var. Tabloya veri girmek için kodlama yapılmamış. Ayrıca kodlarınız mı var ? Yok ise bu kodlarla birlikte mi çalışacak ? Evet diyorsanız, verileri nereden alacak ?

 

[Fuat Şirin]

eklediğim kodlar bunlar

On Error Resume Next
    Adodc1.Refresh
    Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields(1) = Text1
    Adodc1.Recordset.Fields(2) = Text2
    Adodc1.Recordset.Fields(3) = Text3
    Adodc1.Recordset.Fields(4) = Text4
    Adodc1.Recordset.Fields(5) = Text5
    Adodc1.Recordset.Fields(6) = Text6 * 1#
    Adodc1.Recordset.Fields(7) = Text7
    Adodc1.Recordset.Fields(8) = Text8 * 1#
    Adodc1.Recordset.Fields(9) = Text11
    Adodc1.Recordset.Update
    Set DataGrid1.DataSource = Adodc1
    DataGrid1.Refresh
    Command2_Click
    Form_Load
End Sub

bu kodlarla normal tobloya ekliyorum
fakat yukardaki kodlarla oluşturduğum tabloya ekleyemiyorum

 

[Fuat Şirin]

yardımcı olursanız çok makbule geçer hocam

 

[modalı]

Sayın Fuat Şirin,

Kodların içinde ADODC1 tablosuna atamayı görmedim.

Veri tabanına hangi kodlarla ulaşıyorsunuz. Aşağıdaki kodların olması gerekiyor:

Set adoCN = New ADODB.Connection
With adoCN
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .ConnectionString = "C:\A\1.mdb"
    .Open
End With
Dim rs As New ADODB.Recordset
Adodc1.Open "TabloAdınız", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Ondan sonra sizin kodlarla ekleme yapabilirsiniz tabloya.

Ana mantık

1. Veri tabanı bağlantı cümlesi bu bir evin adresi gibidir. A Sok. No:1 gibi. Bununla ana giriş kapısına ulaşıyorsunuz.

2. Yapılacaklara göre, ya Tablo açılacak ya SQL kodu çalıştırılacak. Bu da ilgili apartımanın hangi dairesine ne yapılacağına göre tanımlamalar içerir.

İyi çalışmalar

 

[Fuat Şirin]

hocam teşekkür ederim

bu kodları ilgili yere ekledim

tablo adımı girdim


adodc1.open kırmızı olan yerde hata veriyor hocam

 

[modalı]

Gözümden kaçmış:

Dim rs As New ADODB.Recordset

satırını

Dim Adodc1 As New ADODB.Recordset

olarak değiştirin. rs tanımlayıp atamayı Adodc1 yapmışım.

İyi çalışmalar

 

[Fuat Şirin]

.Columns.Append "FIYAT"
.Columns.Append "MİKTAR"
.Columns.Append "TUTAR"

hocam çok saolun

bu üstteki kodlarda olşturulan tablo sütunları

ytl formatında nasıl yaparım

 

[modalı]

Sayın Fuat Şirin,

Access bölümünde tablo nasıl oluşturulur sorunuzda örnekleri vermiştim. Hatta yazılabilecek tüm değişken türlerini de eklemiştim.

.Columns.Append "ItemValue", adCurrency

İyi çalışmalar

 

[Fuat Şirin]

evet hocam currency ne anlamda onu bilmiyordum bende ki vba biraz karışık yarı türkçe

çok saolun hocam