05-11-13, 12:39 AM
السلام عليكم ورحمة الله وبركاته
اليوم كانت بدايتى مع sql server 2008
تم تسطيب البرنامج بنجاح وانشاء قاعدة بيانات
ذهبت للفيجول دوت نت انشأت مشروع جديد
اضافة كلاس وضعت فيه كود
اضافة مودل وضعت فيه هذا الكود
وفى حدث الفورم لود للبرنامج وضعت هذا الكود
تم الاتصال بنجاح وظهرت الرسالة
المشكلة الان فى الاستعلام
كتبت هذا الكود
ظهرت لي هذه الرسالة
ارجو المساعدة العاجلة انا على وشك الاحباط
بعد عشرة 3 سنين مع الاكسس أول بدايتى مع السكول مشكلة فى الاستعلام حراااااااااام
اليوم كانت بدايتى مع 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 سنين مع الاكسس أول بدايتى مع السكول مشكلة فى الاستعلام حراااااااااام