Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
13/05/2014 08:44
Konu Sahibi
Gorkemku
Yorumlar
2
Okunma
2356
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy
Gorkemku

Gorkemku

Üye
63955
Gö....
 Belirtilmemiş
 6
 11
 13/05/2014
0
 
 
 
 29/05/2014,22:19
Çözüldü 
Ö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:
1
2
3
4
5
6
7
8
9
10
11
12
            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()



POWER

POWER

Uzman
17709
Uf.... Öz....
 55
 44
 1.874
 02/04/2010
 İzmir
 Bilgisayar Mühendisi
 Ofis 2003
 Dün,14:20
Çözüldü 

Visual Basic Code
 
            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 ...

...........
Gorkemku

Gorkemku

Üye
63955
Gö....
 Belirtilmemiş
 6
 11
 13/05/2014
0
 
 
 
 29/05/2014,22:19
Çözüldü 
yardımınız için çok teşekkür ederim

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
 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ı




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü VB.NET Metin Belgesinden Çekilen Veride Türkce Karakter Sorunu Mettleshade 2 1.285 06/12/2016, 18:03
Son Yorum: Mettleshade
Çözüldü C# Global Değişken Ayarlarma emir ustaoğlu 12 2.191 29/11/2016, 22:30
Son Yorum: emir ustaoğlu
Çözüldü Vb.net print formunda alt satıra geçme sorunu alican60 2 1.116 23/11/2016, 20:33
Son Yorum: alican60
Çözüldü SGK e-bildirge için XML dosya oluşturma umutakkaya 13 4.406 14/10/2016, 08:49
Son Yorum: alpeki99
Çözüldü VB 2010 kullanarak excele veri kaydetme. Mettleshade 2 1.466 10/09/2016, 23:39
Son Yorum: Mettleshade

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.