منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته
اليوم كانت بدايتى مع 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

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

[attachment=615]
ارجو المساعدة العاجلة انا على وشك الاحباط
بعد عشرة 3 سنين مع الاكسس أول بدايتى مع السكول مشكلة فى الاستعلام حراااااااااام Huh

اخي العزيز قبل البدء بعملية ملئ ال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(str, Class1.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 

تحياتي

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

xebrahimx

Sajad