التنبيهات التالية ظهرت :
Warning [2] count(): Parameter must be an array or an object that implements Countable - Line: 864 - File: showthread.php PHP 7.4.33 (Linux)
File Line Function
/showthread.php 864 errorHandler->error



تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار بخصوص التاكد من وجود التيبل الاضافي
#1
السلام عليكم  ورحمة الله

عندي قاعدة بيانات رئيسية 

وفي داخلها تيبل اريد اتاكد من وجود التيبل اذا موب موجود اضيف جديد واذا موجود يقولي ان موجود

كمثال

القاعدة الرئيسية هيه
كود :
Data Source= {0}\DBT\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))


واريد اضيف داخلها بعد التاكد من عدم وجود نفس اسم التيبل المراد اضافته

بعد البحث حصلت هذا الكود
كود :
Private Sub btnCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreate.Click

' in this example the table name comes from a textbox

Dim tableName As String = txtTable.Text

' define new db connection

Dim con As New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = D:\suranda\Visual Studio Projects\testSolution\testDB.mdb")

' get database schema

con.Open()

Dim dbSchema As DataTable = con.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, tableName, "TABLE"})

con.Close()

' if the table exists the count will be 1...

If dbSchema.Rows.Count > 0 Then

' ... do whatever you want to do if the table exists

Else

' ... do whatever you want to do if the table does not exist

' eg create a table

Dim cmd As New OleDb.OleDbCommand("CREATE TABLE [" + tableName + "] ([Field1] TEXT(10), [Field2] TEXT(10))", con)

con.Open()

cmd.ExecuteNonQuery()

con.Close()

End If

End Sub


وحاولت اغير لاني هذا الكود بنظام   OleDb  وانا اعمل على  SQLite

وحاولت اغيرة بس ما نفع معاي 

بارك الله فيكم وشكرا 
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
استفسار بخصوص التاكد من وجود التيبل الاضافي - بواسطة dubai.eig - 17-10-17, 08:40 AM


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم