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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تشغيل البرنامج علاء الكبابي 3 219 08-06-21, 03:42 PM
آخر رد: علاء الكبابي
  مشكلة في استعلام عن سجل موجود والتعديل عليه عبدالكريم برشدان 8 324 01-06-21, 05:19 AM
آخر رد: عبدالكريم برشدان
  [VB.NET] مشكلة بالكريستال لا يريد التنصيب AhmedNagib 7 397 30-05-21, 11:39 PM
آخر رد: ابو انس
  [VB.NET] سؤال عن فترة ركود صنف في برنامج مبيعات علاء الكبابي 6 436 27-05-21, 02:11 PM
آخر رد: علاء الكبابي
Sad مشكلة عدم دقة توقيت التايمر أسعد 14 783 27-05-21, 03:32 AM
آخر رد: معاند الحظ
  مشكلة في تحويل كود من c# الى vb.net aldery 2 280 18-05-21, 06:47 PM
آخر رد: aldery
  مسح برنامج بدون قصد mostafa nada 1 201 15-05-21, 04:54 AM
آخر رد: اسامه الهرماوي
  [سؤال] برنامج حسن الجلب 1 206 03-05-21, 08:24 PM
آخر رد: أبو عبدالله الحلواني
  مشكلة عندالتعامل مع (My.Application.CommandLineArgs) عبدالله الصافي 12 925 21-04-21, 03:17 PM
آخر رد: عبدالله الصافي
  مشكلة تحديث برنامجي عن تحزيمه ببرنامج Smart Install Maker alfaiz678 2 305 18-04-21, 12:42 PM
آخر رد: alfaiz678

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


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