AccessTr.neT

Tam Versiyon: Değişken kullanarak Access de tablo oluşturma sorunu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Ö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()
 
Sql = "CREATE TABLE " & a & " (" & TextBox1.Text & " INT," & TextBox2.Text & " CHAR(50));"



Sql deyiminizi yukarıdaki gibi yapınız...
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ı