[Genius Live]

Create Database by cood

كود :

Dim con As New SqlConnection(CONNECTION_STRING)
Dim A001 As New SqlCommand
If con.State = ConnectionState.Open Then con.Close()
Dim sqlStatement As String = "IF EXISTS (SELECT * FROM master..sysdatabases WHERE Name = DATABASE_NAME)DROP DATABASE DATABASE_NAME CREATE DATABASE DATABASE_NAME"
A001 = New SqlCommand(sqlStatement, con)
con.Open()
A001.ExecuteNonQuery()
con.Close()

Replace the following words
CONNECTION_STRING = جملة الاتصال بالخادم
DATABASE_NAME = اسم قاعدة البيانات