AccessTr.neT
Değişken kullanarak Access de tablo oluşturma sorunu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Değişken kullanarak Access de tablo oluşturma sorunu (/konu-degisken-kullanarak-access-de-tablo-olusturma-sorunu.html)



Değişken kullanarak Access de tablo oluşturma sorunu - Gorkemku - 13/05/2014

Ö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()




Cvp: Değişken kullanarak Access de tablo oluşturma sorunu - POWER - 13/05/2014

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



Sql deyiminizi yukarıdaki gibi yapınız...


Cvp: Değişken kullanarak Access de tablo oluşturma sorunu - Gorkemku - 13/05/2014

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ı