مشكلة فى الاستعلام

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة فى الاستعلام
#1
السلام عليكم ورحمة الله وبركاته
اليوم كانت بدايتى مع sql server 2008
تم تسطيب البرنامج بنجاح وانشاء قاعدة بيانات

ذهبت للفيجول دوت نت انشأت مشروع جديد
اضافة كلاس وضعت فيه كود
كود :
Imports System.Data.SqlClient
Public Class Class1
    Public Shared sqlcon As New SqlConnection
End Class
اضافة مودل وضعت فيه هذا الكود
كود :
Module Module1

    Public Hima As New Class1

End Module


وفى حدث الفورم لود للبرنامج وضعت هذا الكود
كود :
Try
            Class1.sqlcon.ConnectionString = "data source=initial catalog=test;integrated security=true "
            MsgBox("تم الاتصال بنجاج", vbInformation, "تنبيه")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

تم الاتصال بنجاح وظهرت الرسالة

المشكلة الان فى الاستعلام
كتبت هذا الكود
كود :
Try
            Class1.sqlcon.ConnectionString = "data source=initial catalog=test;integrated security=true "
            Dim str As String = "select Userid,Userpassword from Users where userid=" & Txtnumber.Text & "  and Userpassword='" & txtpass.Text & "'"

            Dim sda As New SqlDataAdapter(str, Class1.sqlcon)

            Dim ds As New DataSet

            sda.Fill(ds)

            If ds.Tables(0).Rows.Count > 0 Then
                Me.Hide()
                frmmain.Show()
            Else
                MsgBox("هناك خطـ فى ادخال البيانات")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)

        End Try

ظهرت لي هذه الرسالة

   
ارجو المساعدة العاجلة انا على وشك الاحباط
بعد عشرة 3 سنين مع الاكسس أول بدايتى مع السكول مشكلة فى الاستعلام حراااااااااامHuh
الرد
تم الشكر بواسطة:
#2
اخي العزيز قبل البدء بعملية ملئ الDataset بالبيانات يجب فتح الاتصال مع قاعدة البيانات بعد الانتهاء من عملية الملئ يجب غلق الاتصال

وارى انك لم تفتح الاتصال وقد ملئت الDatset!!!!!!!

يكون الكود هكذا:

PHP كود :
Try
            
Class1.sqlcon.ConnectionString "data source=initial catalog=test;integrated security=true "
            
Dim str As String "select Userid,Userpassword from Users where userid=" Txtnumber.Text "  and Userpassword='" txtpass.Text "'"

            
Dim sda As New SqlDataAdapter(strClass1.sqlcon)

            
Dim ds As New DataSet
Class1
.sqlcon.Open()
            
sda.Fill(ds)
Class1.sqlcon.Close()
            If 
ds.Tables(0).Rows.Count 0 Then
                Me
.Hide()
                
frmmain.Show()
            Else
                
MsgBox("هناك خطـ فى ادخال البيانات")
            
End If
        Catch 
ex As Exception
            MsgBox
(ex.Message)

        
End Try 

تحياتي
الرد
تم الشكر بواسطة: ali.alfoly


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة فى زر Login الخاص بشاشة الدخول Michael Maher 6 839 18-05-18, 02:14 AM
آخر رد: Michael Maher
  مشكلة حفظ تعديلات الداتاقريد دمعة المقهور 7 2,205 22-04-18, 06:32 PM
آخر رد: دمعة المقهور
  [SQL] مشكلة تواجهنى عند محاولة استرجاع قاعده بيانات ahmedmansour 1 180 27-11-17, 09:39 PM
آخر رد: حريف برمجة
  [VB.NET] مشكلة في تحديث البيانات larbihamri 2 272 04-11-17, 07:37 PM
آخر رد: larbihamri
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 420 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  كيف أجعل اسم الجدول في نص الاستعلام متعيرا؟ abozeyd 4 300 11-08-17, 06:46 AM
آخر رد: أبو نوره
  مشكلة في كود البحث Search khaled12345 5 510 16-07-17, 08:22 PM
آخر رد: سعود
  مشكلة في الاتصال مع ملفات ال SQL الخارجية .mdf khaled12345 13 848 16-07-17, 06:21 AM
آخر رد: ahmed6610
  مشكلة في كود الحذف Delete khaled12345 5 378 15-07-17, 10:58 PM
آخر رد: أبوبكر سويدان
  [سؤال] مشكلة في كود الاضافة والتعديل في المشروع khaled12345 11 694 15-07-17, 02:17 AM
آخر رد: سعود

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


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