تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة في برنامج vb.net
#1
السلام عليكم هنالك مشكلة في هذين السطرين
 Dim server As New Server(New ServerConnection(Con))
 server.ConnectionContext.ExecuteNonQuery(st)
 السطر الأول يعطي خطأ(()too many arguments to puplic sub new) 
السطر الثاني يعطي خطأ (connection contex is not a member of E_PHARMA.server)



كود :
 Con = New SqlConnection("Data source=" & ComboBox1.Text & ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")
               Con.Open()
               Dim cb3 As String = "Create Database drug"
               cmd = New SqlCommand(cb3)
               cmd.Connection = Con
               cmd.ExecuteNonQuery()
               Con.Close()
               Using sr As StreamReader = New StreamReader(Application.StartupPath & "\DATABASESCRIPT.sql")
                   st = sr.ReadToEnd()
                   Dim server As New Server(New ServerConnection(Con))
                   server.ConnectionContext.ExecuteNonQuery(st)

               End Using


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
يجب ان تتأكد بالبداية بان قاعدة البيانات موجودة اة غير موجودة
على كل حال هذا الكود
PHP كود :
 Con = New SqlConnection("Data source=" ComboBox1.Text ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")
 
           Con.Open()
 
           Dim cb2 As String "Select * from sysdatabases where name='drug'"
 
           Dim cmd As New SqlCommand(cb2)
 
           cmd.Connection Con
            Dim rdr 
As SqlDataReader
            rdr 
cmd.ExecuteReader()
 
           If rdr.Read() Then
                Con 
= New SqlConnection("Data source=" ComboBox1.Text ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")
 
               Con.Open()
 
               Dim cb1 As String "Drop Database drug"
 
               cmd = New SqlCommand(cb1)
 
               cmd.Connection Con
                cmd
.ExecuteNonQuery()
 
               Con.Close()
 
               Con = New SqlConnection("Data source=" ComboBox1.Text ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")
 
               Con.Open()
 
               Dim cb As String "Create Database drug"
 
               cmd = New SqlCommand(cb)
 
               cmd.Connection Con
                cmd
.ExecuteNonQuery()
 
               Con.Close()
 
               Using sr As StreamReader = New StreamReader(Application.StartupPath "\DATABASESCRIPT.sql")
 
                   st sr.ReadToEnd()
 
                   Dim server As New Server(New ServerConnection(Con))
 
                   server.ConnectionContext.ExecuteNonQuery(st)
 
               End Using 
الرد }}}
#3
شكرا لك أخي الكريم
لكن في الحقيقة مشكلتي ليست في القاعدة بل قبل اجراء عملية Build
يظهر هذا الخطأ عند السطر : {Dim server As New Server(New ServerConnection(Con))}
عنوان الخطأ {()too many arguments to puplic sub new) }
و الخطأ الآحر عند السطر : { server.ConnectionContext.ExecuteNonQuery(st)}
عنوان الخطأ : {connection contex is not a member of E_PHARMA.server}
هل هنالك مكتبة معينة مطلوب تواجدها غير التالي :
Imports Microsoft.Win32
Imports System.Data.SqlClient
Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Server
Imports Microsoft.SqlServer.Management.Smo.ServerProxyAccount
Imports Microsoft.SqlServer.Management.Common
Imports System.IO
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو
#4
عزيزي aliabdullah
قبل المسارعة في النشر يجب عليك التاكد من بعض الامور
اولا : قم بترجمة الرسالة الى العربية
()too many arguments to puplic sub new
معناها ان هناك بارامترات زائدة
لذا احذف اما الCon او New ServerConnection(Con) بالكامل

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


<يعطيك العافية>
الرد }}}



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


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