+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات (/showthread.php?tid=38223)
الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات - mmaalmesry - 07-04-21
السلام عليكم و رحمة الله و بركاته
مرفق بالموضوع مثال لعرض أسماء جميع الجداول فى قاعدة بيانات .mdb و ذلك فى برنامج VB6
و سؤالى هو ما هو الكود المكافئ باستخدام ال VB.net (يفضل أحدث الاصدارات)
وشكرا جزيلا
RE: الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات - asemshahen5 - 07-04-21
سورس كود برنامج صانع الاكواد .
فيه أكواد لجلب اسماء الجداول في قاعدة البيانات أكسيس Mdb و Accdb و SqlServer .
RE: الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات - mmaalmesry - 08-04-21
السلام عليكم
لقد بحثت عن الطريقة فى برنامج صانع الأكواد و لكنى لم أجدها فهل من يدلنى عليها ؟
RE: الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات - mmaalmesry - 08-04-21
كنت أقصد بأحدث إصدار انه من الأفضل آخر نسخة visual basic
ملحوظة:
أنا استخدم vb 2015 ولم يعمل الكود السابق إلا بعد تعديله إلى:
كود :
con.open
dim dt=con.getschema("tables",{nothing,nothing,nothing}) 'هذا السطر
for each r in dt.rows
msgbox(r("table_name"))
next
con.closeRE: الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات - d3vc0d - 23-04-21
السلام عليكم
mdb & accdb
كود :
SELECT name from msysobjects WHERE Type = 1 And flags = 0Using Vb.net
كود :
Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + _
"Data Source=" & Text1.Text
Connection.Open()
' sql = "SELECT MSysObjects.Name AS table_name FROM MSysObjects"
sql = "SELECT name from msysobjects WHERE Type = 1 And flags = 0"
Dim commande As OleDbCommand
commande = New OleDbCommand(sql, Connection)
Dim dataReader As OleDbDataReader
Try
dataReader = commande.ExecuteReader()
While (dataReader.Read())
tableNameBox.Text = dataReader.GetString(0)
End While
Catch ex As Exception
MsgBox("Problème de connection " & ex.Message())
End TrySQL Server
كود :
Use Database_Name
SELECT name FROM sys.tablesNb : Database_Name = your database name
VB.net
كود :
Using connection As New SqlConnection(connetionString)
connection.Open()
adapter = New SqlDataAdapter("SELECT name FROM sys.tables", connection)
Using ds = new DataSet()
adapter.Fill(ds)
with ListBox1
.DataSource = ds.Tables(0)
.DisplayMember = "name"
.ValueMember = "name"
end with
End Using
End Using