Skip to main content

AccessTr.neT


Vb6 access te tablo olustutuken hata

Vb6 access te tablo olustutuken hata

Çözüldü #1
Arkadaşlar söle bi kodum var ama hep hata alıyorum

Dim dosya As Database, td As TableDef, fd As Field
Private Sub Command1_Click()
On Error Resume Next
If text1.Text = "" Then
MsgBox "Lütfen bir ism giriniz.", vbApplicationModal + vbInformation, "Form1"
text1.Text = ""

Else
On Error Resume Next
Set dosya = "c:\deneme.mdb" 'Burda hep hata alıyorum.
Set fd = td.CreateField("tarih", dbText, (20))
td.Fields.Append fd
dosya.TableDefs.Append td
dosya.Close
End if
End Sub


acemiyim vb6 da çözemedim sorunu neden hata alıyorum ?
Cevapla
Çözüldü #2
Sn:exelance

Set dosya = "c:\deneme.mdb" yazan kodu aşağıdaki şekilde değiştiriniz.

Kod:
Set dosya = OpenDatabase("c:\deneme.mdb")
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #3
sağolsın dediğin şekilde yaptım oldu .
Cevapla
Çözüldü #4
Sn:exelance
Rica ederim konu cevaplanmışlara taşınmıştır.
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task