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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [SQL] مشكلة تواجهنى عند محاولة استرجاع قاعده بيانات ahmedmansour 1 50 27-11-17, 09:39 PM
آخر رد: حريف برمجة
  [VB.NET] مشكلة في تحديث البيانات larbihamri 2 87 04-11-17, 07:37 PM
آخر رد: larbihamri
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 216 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  كيف أجعل اسم الجدول في نص الاستعلام متعيرا؟ abozeyd 4 178 11-08-17, 06:46 AM
آخر رد: أبو نوره
  مشكلة في كود البحث Search khaled12345 5 310 16-07-17, 08:22 PM
آخر رد: سعود
  مشكلة في الاتصال مع ملفات ال SQL الخارجية .mdf khaled12345 13 529 16-07-17, 06:21 AM
آخر رد: ahmed6610
  مشكلة في كود الحذف Delete khaled12345 5 231 15-07-17, 10:58 PM
آخر رد: أبوبكر سويدان
  [سؤال] مشكلة في كود الاضافة والتعديل في المشروع khaled12345 11 464 15-07-17, 02:17 AM
آخر رد: سعود
  مشكلة في عمل ال Navigation khaled12345 8 285 27-06-17, 01:25 PM
آخر رد: سعود
  [VB.NET] مشكلة في كود التعديل والحذف boofa2015 1 399 27-06-17, 12:03 AM
آخر رد: سعود

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


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