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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في كود البحث Search khaled12345 5 133 16-07-17, 08:22 PM
آخر رد: سعود
  مشكلة في الاتصال مع ملفات ال SQL الخارجية .mdf khaled12345 13 288 16-07-17, 06:21 AM
آخر رد: ahmed6610
  مشكلة في كود الحذف Delete khaled12345 5 110 15-07-17, 10:58 PM
آخر رد: أبوبكر سويدان
  [سؤال] مشكلة في كود الاضافة والتعديل في المشروع khaled12345 11 267 15-07-17, 02:17 AM
آخر رد: سعود
  مشكلة في عمل ال Navigation khaled12345 8 202 27-06-17, 01:25 PM
آخر رد: سعود
  [VB.NET] مشكلة في كود التعديل والحذف boofa2015 1 263 27-06-17, 12:03 AM
آخر رد: سعود
  مشكلة في تحزيم البرنامج samawi 2 142 23-04-17, 03:06 AM
آخر رد: samawi
  [سؤال] عندي مشكلة في احتساب الرواتب - مشروع HR dabas 0 208 17-01-17, 10:57 AM
آخر رد: dabas
  مشكلة مع حقل من نوع Money djelloul 2 220 16-01-17, 03:29 AM
آخر رد: مساعدة
  مشكلة في تصميم قاعدة البيانات djelloul 2 358 06-12-16, 12:36 PM
آخر رد: djelloul

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


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