تقييم الموضوع :
  • 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) بالكامل

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة ريبورت فيور مع vb.net 17 عمور2016 0 49 15-08-22, 04:31 PM
آخر رد: عمور2016
  [سؤال] عندي مشكلة رسالة موقفة المشروع تماما عمور2016 3 130 13-08-22, 02:25 PM
آخر رد: عمور2016
  استفسار عن فكرة عمل برنامج نظام صندوق مالي مصغر بشكل مبسط nowiglah 9 317 12-08-22, 05:57 AM
آخر رد: Taha Okla
  التحكم بالبرنامج ( عند المستخدم ) عن طريق برنامج اخر (تعديل - حذف - اضافه - تغير كود) mohamedallams 1 192 08-08-22, 02:11 PM
آخر رد: mohamedallams
Sad [VB.NET] مشكلة عندي في عرض تقارير كريستال ريبورت بجهاز العميل golden man 0 118 04-08-22, 11:06 PM
آخر رد: golden man
  مشكلة تنصيب سيكول سيرفر حماده ممدوح البحيرى 1 129 04-08-22, 02:05 AM
آخر رد: Jounior_P
  مشكلة فى تنصيب sql حماده ممدوح البحيرى 1 631 02-08-22, 12:11 AM
آخر رد: حماده ممدوح البحيرى
  [سؤال] تفعيل برنامج فيجوال استوديو حسن الجلب 5 287 30-07-22, 12:40 PM
آخر رد: حسن الجلب
  [سؤال] لينك تحميل برنامج فيجوال استوديو 2019 حسن الجلب 1 144 29-07-22, 08:59 PM
آخر رد: أبو خالد الشكري
  قراءة البيانات من برنامج البصمة strongriseman 2 190 29-07-22, 02:23 AM
آخر رد: ابراهيم ايبو

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


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