rezabnm
جمعه 13 آذر 1388, 23:07 عصر
file:///C:/DOCUME%7E1/reza/LOCALS%7E1/Temp/moz-screenshot.jpgدرخواست كمك از تمام برنامه نويسان
سلام به همه دوستان برنامه نويس:
من براي پرژه اي كه استاد به دانشجو هاي كلاس گفته بود خواستم كه در برنامه از يك ديتابيس استفاده كنم . درس ويژوال بيسيك است و من هم براي ديتابيس از اسكيول سرور استفاده كردم اما زماني كه ميخواهم با استفاده از ديتا اداپتور جدول ها را در داخل ديتا ست قرار بدم كامپايلر من كه ويژوال استديو 2005 هست(البته ميدونم ربطي نداره) پيغام خطاي صادر ميكنه كه الان چند هفته هست كه من رو سردرگم كرده و متوجه نميشم !!! حالا ميخواستم ببينم كه از اساتيد كسي هست كه من رو ياريبده كه اگر اين محبت رو در حق من داشته باشه عمري دعا گوش ميشم البته من هم نمونه كد و هم تصوير پيغام رو ميذارم تا اگر ايرادي داره(كه حتما داره) به من بگيد و من رو راهنماي كنيد لازم بذكر است كه من با ديتابيس هاي ديگرهم كه امتحان كردم كامپايلر در همين قسمت پيغام خطا ميداد دو نونه كدي كه نوشتم روهم قرار :
نمونه كد اول:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim path As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\reza\My Documents\reza.mdb"
Dim conn As New OleDbConnection(path)
Dim str As String = "SELECT firstname FROM user"
Dim cmd As New OleDbCommand(str, conn)
conn.Open()
Dim dread As OleDbDataReader = cmd.ExecuteReader()
conn.Close()
End Sub
نمونه خطاي ظاهر شده بعد از كامپايل:
http://up.iranblog.ir/4/1260000501.jpg
نمونه كد دوم:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim path As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\reza\My Documents\Visual Studio 2005\Projects\test3\test3\inforeza.mdf;Integrated Security=True;User Instance=True"
Dim str As String = "SELECT * FROM user "
Dim conn As New SqlConnection(path)
Dim com As New SqlCommand(str, conn)
Dim dset As New DataSet
conn.Open()
Dim dadp As New SqlDataAdapter(str, conn)
dadp.Fill(dset, "user")
conn.Close()
End Sub
نمونه خطاي ظاهر شده بعد از كامپايل:
http://up.iranblog.ir/4/1259981833.jpg
حالا نميدونم تا چه حد تونستم واضح مشكل رو بيان كنم حالا اگر خواستيد من رو راهنماي كنيد
من اسمم رضا و شماره ام 09374674095 و ايميل من
rezaignore@yahoo.com
هست اگر كمك كنيد ممنون ميشم.منتظر پيام يا تماس شما هستم.
(شايد اين مشكل براي شما كوچيك بنظر برسه ولي واسه من كابوس شبام شده :گریه:)
سلام به همه دوستان برنامه نويس:
من براي پرژه اي كه استاد به دانشجو هاي كلاس گفته بود خواستم كه در برنامه از يك ديتابيس استفاده كنم . درس ويژوال بيسيك است و من هم براي ديتابيس از اسكيول سرور استفاده كردم اما زماني كه ميخواهم با استفاده از ديتا اداپتور جدول ها را در داخل ديتا ست قرار بدم كامپايلر من كه ويژوال استديو 2005 هست(البته ميدونم ربطي نداره) پيغام خطاي صادر ميكنه كه الان چند هفته هست كه من رو سردرگم كرده و متوجه نميشم !!! حالا ميخواستم ببينم كه از اساتيد كسي هست كه من رو ياريبده كه اگر اين محبت رو در حق من داشته باشه عمري دعا گوش ميشم البته من هم نمونه كد و هم تصوير پيغام رو ميذارم تا اگر ايرادي داره(كه حتما داره) به من بگيد و من رو راهنماي كنيد لازم بذكر است كه من با ديتابيس هاي ديگرهم كه امتحان كردم كامپايلر در همين قسمت پيغام خطا ميداد دو نونه كدي كه نوشتم روهم قرار :
نمونه كد اول:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim path As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\reza\My Documents\reza.mdb"
Dim conn As New OleDbConnection(path)
Dim str As String = "SELECT firstname FROM user"
Dim cmd As New OleDbCommand(str, conn)
conn.Open()
Dim dread As OleDbDataReader = cmd.ExecuteReader()
conn.Close()
End Sub
نمونه خطاي ظاهر شده بعد از كامپايل:
http://up.iranblog.ir/4/1260000501.jpg
نمونه كد دوم:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim path As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\reza\My Documents\Visual Studio 2005\Projects\test3\test3\inforeza.mdf;Integrated Security=True;User Instance=True"
Dim str As String = "SELECT * FROM user "
Dim conn As New SqlConnection(path)
Dim com As New SqlCommand(str, conn)
Dim dset As New DataSet
conn.Open()
Dim dadp As New SqlDataAdapter(str, conn)
dadp.Fill(dset, "user")
conn.Close()
End Sub
نمونه خطاي ظاهر شده بعد از كامپايل:
http://up.iranblog.ir/4/1259981833.jpg
حالا نميدونم تا چه حد تونستم واضح مشكل رو بيان كنم حالا اگر خواستيد من رو راهنماي كنيد
من اسمم رضا و شماره ام 09374674095 و ايميل من
rezaignore@yahoo.com
هست اگر كمك كنيد ممنون ميشم.منتظر پيام يا تماس شما هستم.
(شايد اين مشكل براي شما كوچيك بنظر برسه ولي واسه من كابوس شبام شده :گریه:)