+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : مشكلة فى الاستعلام (/showthread.php?tid=854)
مشكلة فى الاستعلام - xebrahimx - 05-11-13
السلام عليكم ورحمة الله وبركاته
اليوم كانت بدايتى مع 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 سنين مع الاكسس أول بدايتى مع السكول مشكلة فى الاستعلام حراااااااااام
RE: مشكلة فى الاستعلام - Sajad - 05-11-13
اخي العزيز قبل البدء بعملية ملئ ال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
تحياتي