Jalalkhan
جمعه 13 اسفند 1389, 21:51 عصر
من درباره ی استفاده از SQL در VB.NET توی گوگل سرچ کردم و دو-سه تا کد گرفتم، اما متأسفانه همشون توی یه بخش از کد error میدن. من اینجا یکیشون رو گذاشتم:
Imports System.Data.SqlClient
Public Class Form1
Private Sub btnCreateDatabase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateDatabase.Click
Dim str As String
Dim myConn As SqlConnection = New SqlConnection("Server = Jalal-PC;" & "initial Catalog =;" & " Trusted_Connection=yes")
str = "CREATE DATABASE MyDatabase ON PRIMARY " & _
"(NAME = MyDatabase_Data, " & _
" FILENAME = 'D:\MyFolder\MyDatabaseData.mdf', " & _
" SIZE = 2MB, " & _
" MAXSIZE = 10MB, " & _
" FILEGROWTH = 10%) " & _
" LOG ON " & _
"(NAME = MyDatabase_Log, " & _
" FILENAME = 'D:\MyFolder\MyDatabaseLog.ldf', " & _
" SIZE = 1MB, " & _
" MAXSIZE = 5MB, " & _
" FILEGROWTH = 10%) "
Dim myCommand As SqlCommand = New SqlCommand(str, myConn)
Try
myConn.Open()
myCommand.ExecuteNonQuery()
MessageBox.Show("Database is created successfully", _
"MyProgram", MessageBoxButtons.OK, _
MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.ToString())
Finally
If (myConn.State = ConnectionState.Open) Then
myConn.Close()
End If
End Try
End Sub
End Class
متأسفانه توی این کد هم مثل بقیه روی
open.myconn
ایراد میگیره. متن error هم مربوط به اینه که نتونسته به دیتابیس وصل بشه که احتمالاً یا پیدا نشده یا دسترسی بهش ممکن نیست.
درضمن من زیاد با SQL اشنا نیستم، و فک میکنم ایراد یا از
Dim myConn As SqlConnection = New SqlConnection("Server = Jalal-PC;" & "initial Catalog =;" & " Trusted_Connection=yes
هست یا اساساً ربطی به کد نداشته باشه، نمی دونم :)
خیلی ممنون میشم اگه کسی بتونه کمکم کنه!
Imports System.Data.SqlClient
Public Class Form1
Private Sub btnCreateDatabase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateDatabase.Click
Dim str As String
Dim myConn As SqlConnection = New SqlConnection("Server = Jalal-PC;" & "initial Catalog =;" & " Trusted_Connection=yes")
str = "CREATE DATABASE MyDatabase ON PRIMARY " & _
"(NAME = MyDatabase_Data, " & _
" FILENAME = 'D:\MyFolder\MyDatabaseData.mdf', " & _
" SIZE = 2MB, " & _
" MAXSIZE = 10MB, " & _
" FILEGROWTH = 10%) " & _
" LOG ON " & _
"(NAME = MyDatabase_Log, " & _
" FILENAME = 'D:\MyFolder\MyDatabaseLog.ldf', " & _
" SIZE = 1MB, " & _
" MAXSIZE = 5MB, " & _
" FILEGROWTH = 10%) "
Dim myCommand As SqlCommand = New SqlCommand(str, myConn)
Try
myConn.Open()
myCommand.ExecuteNonQuery()
MessageBox.Show("Database is created successfully", _
"MyProgram", MessageBoxButtons.OK, _
MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.ToString())
Finally
If (myConn.State = ConnectionState.Open) Then
myConn.Close()
End If
End Try
End Sub
End Class
متأسفانه توی این کد هم مثل بقیه روی
open.myconn
ایراد میگیره. متن error هم مربوط به اینه که نتونسته به دیتابیس وصل بشه که احتمالاً یا پیدا نشده یا دسترسی بهش ممکن نیست.
درضمن من زیاد با SQL اشنا نیستم، و فک میکنم ایراد یا از
Dim myConn As SqlConnection = New SqlConnection("Server = Jalal-PC;" & "initial Catalog =;" & " Trusted_Connection=yes
هست یا اساساً ربطی به کد نداشته باشه، نمی دونم :)
خیلی ممنون میشم اگه کسی بتونه کمکم کنه!