ساختن دیتا بیس جدید

[aligh662000]

سلام
می خوام با کمک Vb و sql نویسی یک دیتا بیس جدید بسازم!
دقت کنید که نمی خوام یک Table بسازم تویه دیتا بیسی کار میکنم!
بلکه میخوام یک دیتا بیس دیگه بسازم!
sql = "CREATE DATABASE mydatabase1"
Cnn.Execute sql
این رو هم امتحان کردم که جواب نداد!

[mahsor]

سلام خسته نباشید
تا جائیکه من یادمه تمام دستورات sql رو میشه با connection و command انجام داد



Dim con AsNew SqlClient.SqlConnection(constr)
Dim s AsString
s="create database name
Dim c AsNew SqlClient.SqlCommand(s, con)
con.Open()
c.ExecuteNonQuery()
constr هم که همون connection string هست که باید به درستی تنظیم کنید

[zerobit-ltd]

Dim con AsNew SqlClient.SqlConnection(constr)
Dim s AsString
s="create database name
Dim c AsNew SqlClient.SqlCommand(s, con)
con.Open()
c.ExecuteNonQuery()
constr هم که همون connection string هست که باید به درستی تنظیم کنید

کاملا درسته. ولی برای vb.net هستش.
با اجازه دوستمون mahsor، کد vb اش رو می نویسم:


dim cn as new adodb.connection
dim cmd as new adodb.command
.
.
.
cn.connectionstring = "Provider=SQLOLEDB,............"
cn.open
cmd.activeconnection = cn
cmd.commandtext = "create database mydatabase1"
cmd.execute
همون طور که mahsor گفت، تنظیم connectio string هم خیلی مهمه.
در ضمن اگه کدی که نوشتی رو بزاری، بهتر میشه کمک کرد.

[MM_Mofidi]

سطح دسترسی برای ایجاد db فراموش نشه

[aligh662000]

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mydb.mdb;"
کانکشن استرینگ من اینه!

[aligh662000]

با تشکر از تمام دوستان خودم راهش رو پیدا کردم
newDB = App.Path & "\new.mdb"
newDB = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & newDB

Set cat = CreateObject("ADOX.Catalog")
cat.Create newDB
Set conn = CreateObject("ADODB.Connection")
conn.Open newDB

[MM_Mofidi]

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mydb.mdb;"
کانکشن استرینگ من اینه!

من فکر کردم شما می خواهید یک db در sql بسازید نه یک فایل اکسس جدید برای استفاده بعنوان db
:لبخند: