AccessTr.neTVisual Basic .NETVisual Basic .NET Cevaplanmış Soruları

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

13/05/2014, 08:44

Gorkemku

Ö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()
13/05/2014, 10:52

POWER

 

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


Sql deyiminizi yukarıdaki gibi yapınız...
13/05/2014, 12:37

Gorkemku

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ı