مطلوب مساعدة في حل هل خطاء

أخي الفاضل

لقد صممت لك مثال سريع يحتوي علي كل طلباتك وهي مليء DataGridview والبحث بداخلها عن طريق DataSet بدلالة كود التلميذ

كل المطلوب منك هو تغيير سلسلة الاتصال حتي يعمل المثال طرفك

مرفق المشروع + قاعدة البيانات

بالتوفيق

Fill_and_Search_in_DataGridView.rar

محمد فؤاد تركي كتب:

أخي الفاضل

لقد صممت لك مثال سريع يحتوي علي كل طلباتك وهي مليء DataGridview والبحث بداخلها عن طريق DataSet بدلالة كود التلميذ

كل المطلوب منك هو تغيير سلسلة الاتصال حتي يعمل المثال طرفك

 

مرفق المشروع + قاعدة البيانات

 

بالتوفيق

 مشكور صديقي بس أجوك كيف بغير المسارت وبفتح هل مشروع بالفيجول ستديو؟؟؟

ارجوووك تساعدني اي شرح بالغة الانكليزية او العربية اذا ما بدك تكتب بايدك مشكور سلف 

وهي كود انا متاكد انه صح بس مشكلتي ما عم اعرف شلون بدي اتصل بالسيرفر تبع الديتا بيز  المشكلة عندي بهل تعليمة هي تحديدا 

ارجوك شرحلي خطائي وانت من وين جبت اسم السيرفر يلي حاطه بكودك 

        constr.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;Server=localhost;data source=C:\USERS\USER\DOCUMENTS\VISUAL STUDIO 2008\PROJECTS\APP V1.2\APP V1.2\DATABASE1.MDF"

المعلومات هي من وين جبتها ؟؟؟

    Dim ConStr As New SqlConnection("Server=.\SQLInstanceName;Database=YourDB;user id=sa;Password=******")

Imports System.Data.SqlClient
Imports System.Data.OleDb




Public Class Form1


    Dim cnn As OleDb.OleDbConnection


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim constr As New System.Data.SqlClient.SqlConnection
        constr.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;Server=localhost;data source=C:\USERS\USER\DOCUMENTS\VISUAL STUDIO 2008\PROJECTS\APP V1.2\APP V1.2\DATABASE1.MDF"
        Dim sqlstr As String = "select * from Table1 where StudentID=" & TextBox1.Text
        Dim ds As New DataSet
        Dim apt As New SqlDataAdapter
        Try
            apt = New SqlDataAdapter(sqlstr, constr)
            apt.Fill(ds)
            DataGridView1.DataSource = ds.Tables(0)
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        Finally
            constr.Dispose()
            apt.Dispose()
        End Try
    End Sub
End Class

اخي هذه هي سلسلة الاتصال التي يتصل بها التطبيق بقاعده البيانات

1- Server= يتم كتابة اسم جهازك هنا

2- بعد علامة \ يتم كتابه SQL instance

3- Database يتم كتابة بعدها اسم قاعده البيانات التي ستتصل بها

4- user id يتم كتابة بعدها اسم المستخدم الذي يفتح برنامج SQL و غالبا يكون المستخدم الافتراضي ل SQL وهو sa

5- Password ويتم كتابة بعدها الرقم السري الخاص بالمستخدم sa

وهذا مثال لما تم شرحة اعلاه

Dim ConStr As New SqlConnection("Server=xghostx\MSSQLEXPRESS;Database=DATABASE1;user id=sa;Password=123456")