masoudcarpet
سه شنبه 29 آذر 1390, 23:27 عصر
لطفا راهنمائی کنید چطور جدولی رو که در موقع اجرا ایجاد کردم ، به طور کامل حذف کنم لطفا جواب تلگرافی ننویسید
Public Sub createt1()
Dim a As String
a = ListBox2.Text
Dim conStr As String = "Server=.;Database=" + a + ";Trusted_Connection = yes" ' نام سرور و دیتابیس
Dim objCon As New SqlClient.SqlConnection(conStr)
Dim obj As SqlClient.SqlCommand
Dim strSQL As String
Label1.Text = InputBox("یک نام برای جدول انتخاب کنید") ' نام جدول مورد نظر
StrTableName = Label1.Text
' ساخت جدول
conStr = "Server=.;Database=" + a + ";Trusted_Connection = yes"
objCon = New SqlClient.SqlConnection(conStr)
objCon.Open()
obj = objCon.CreateCommand()
Cu = Dst_Fill.Tables(0).Columns.Count
Dim I As Int16
For I = 0 To Cu - 1
If I < Cu - 1 Then
strSQL = strSQL + Dst_Fill.Tables(0).Columns(I).ColumnName + " NVARCHAR(100),"
Else
strSQL = strSQL + Dst_Fill.Tables(0).Columns(I).ColumnName + " NVARCHAR(100),"
End If
Next
strSQL = "CREATE TABLE " & StrTableName & "(" & strSQL & ")"
obj.CommandText = strSQL
Try
obj.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
objCon.Close()
objCon = Nothing
MsgBox("جدول مورد نظر ساخته شد ، دکمه ثبت را فشار دهید")
End Sub
Public Sub createt1()
Dim a As String
a = ListBox2.Text
Dim conStr As String = "Server=.;Database=" + a + ";Trusted_Connection = yes" ' نام سرور و دیتابیس
Dim objCon As New SqlClient.SqlConnection(conStr)
Dim obj As SqlClient.SqlCommand
Dim strSQL As String
Label1.Text = InputBox("یک نام برای جدول انتخاب کنید") ' نام جدول مورد نظر
StrTableName = Label1.Text
' ساخت جدول
conStr = "Server=.;Database=" + a + ";Trusted_Connection = yes"
objCon = New SqlClient.SqlConnection(conStr)
objCon.Open()
obj = objCon.CreateCommand()
Cu = Dst_Fill.Tables(0).Columns.Count
Dim I As Int16
For I = 0 To Cu - 1
If I < Cu - 1 Then
strSQL = strSQL + Dst_Fill.Tables(0).Columns(I).ColumnName + " NVARCHAR(100),"
Else
strSQL = strSQL + Dst_Fill.Tables(0).Columns(I).ColumnName + " NVARCHAR(100),"
End If
Next
strSQL = "CREATE TABLE " & StrTableName & "(" & strSQL & ")"
obj.CommandText = strSQL
Try
obj.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
objCon.Close()
objCon = Nothing
MsgBox("جدول مورد نظر ساخته شد ، دکمه ثبت را فشار دهید")
End Sub