Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Değişken kullanarak Access de tablo oluşturma sorunu

Gorkemku
Gorkemku
Visual Basic .NET Cevaplanmış Soruları
2
3025

Değişken kullanarak Access de tablo oluşturma sorunu

Çözüldü #1
Gorkemku
Üye
Gorkemku
Bul
Üye
Adı Soyadı: Gö....
Konum:
Ofis Versiyonu:
Son Oturumu: 29/05/2014,22:19
Yorumları: 11
Konuları: 6
Kayıt Tarihi: 13/05/2014
Teşekkür Puanı: 0
Öncelikle merhabalar benim sorunum Vb.Net de yazdığım bir kod ile değişken atamak ve bu değişken adıyla Access de bir tablo oluşturabilmek. internette çok fazla siteyi inceledim ama çözümünü bulamadım. kodu incelerseniz yapmaya çalıştığım şeyi görebilirsiniz. şimdiden teşekkürler


Kod:
Dim a As String
            a = TextBox3.Text
            
            Dim sql As New String("CREATE TABLE a  ({0} TEXT,   {1} TEXT)")
            sql = String.Format(sql, TextBox1.Text, TextBox2.Text)
            Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:OtoServisOtomasyonu.accdb")
            Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
            Dim sonuc As Integer
            baglanti.Open()
            sonuc = komutnesnesi.ExecuteNonQuery()
            MsgBox("Yeni Tablonuz Başarıyla Oluşturulmuştur.", MsgBoxStyle.Exclamation, "Tebrikler")
            baglanti.Close()
Cevapla
Çözüldü #2
POWER
Uzman
POWER
Bul
Uzman
Adı Soyadı: Uf.... Öz....
Yaşı: 61
Konum: İzmir
Ofis Versiyonu: Ofis 2003
Son Oturumu: 08/11/2024,01:31
Yorumları: 1.893
Konuları: 44
Kayıt Tarihi: 02/04/2010
Teşekkür Puanı: 1.899
Mesleğiniz: Bilgisayar Mühendisi 
 

            Sql = "CREATE TABLE " & a & " (" & TextBox1.Text & " INT," & TextBox2.Text & " CHAR(50));"


Sql deyiminizi yukarıdaki gibi yapınız...
Please return your positive or negative ...
Cevapla
Çözüldü #3
Gorkemku
Üye
Gorkemku
Bul
Üye
Adı Soyadı: Gö....
Konum:
Ofis Versiyonu:
Son Oturumu: 29/05/2014,22:19
Yorumları: 11
Konuları: 6
Kayıt Tarihi: 13/05/2014
Teşekkür Puanı: 0
yardımınız için çok teşekkür ederim

Kod:
Dim a As String
            a = TextBox3.Text
            
            Dim sql As String
            sqL = "CREATE TABLE " & a & " (" & TextBox1.Text & " INT," & TextBox2.Text & " CHAR(50));"
            Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:OtoServisOtomasyonu.accdb")
            Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)
            Dim sonuc As Integer
            baglanti.Open()
            sonuc = komutnesnesi.ExecuteNonQuery()
            MsgBox("Yeni Tablonuz Başarıyla Oluşturulmuştur.", MsgBoxStyle.Exclamation, "Tebrikler")
            baglanti.Close()
yaptım çalıştı
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task