أبحث عن هذا الكود

مافي حد يقدر يساعد :rolleyes: :cry:

شكرا أخي على اهتماممك

لم أهم هذا الكود كيف يوضع في combobox

Dim sqlMySrevers As Sql.SqlDataSourceEnumerator = _

Sql.SqlDataSourceEnumerator.Instance

'Get the Srevers

With lsbServers

.DataSource = sqlMySrevers.GetDataSources()

'.DisplayMember = "ServerName"

.DisplayMember = "InstanceName"

End With

بعدما أن قمت ببحث شامل لم اجد الكود الذي أريد ه و فكر بعمل textbox و اضع فيها اسم السيرفر

و هذه هي دالة connexion

Public con As New SqlConnection("Data Source=" & lg.txtsr.Text & ";Initial Catalog=gestion_des_appeles;User ID=sa")

يعمل على جهازي بشكل جيد لكن عندما أقوم بتثبيت البرنامج على جهاز أخر و السيرفر يكون على جهازي فقط لا يعمل هذه هي الرسالة التي تظهر لي على الجهاز الثاني بعد تثبيت مشروع vb.net 2005

و استعملت sql server 2000 على جهازي مع العلم الشبكة شغالة جيد بين الاجهزة هناك برنامج صنع ب vb2003 يعمل على الاجهزة الاخرى و السيرفر على جهازي يعمل بكل كفائة أدعكم مع صورة توضيحية

SQLConnectioOption.rar

ربنا يوفقك

يغالي تسلم ايديك شكرا

بالنسبة أخي لملف app.config

connectionString="Data Source=.;Initial Catalog=gestion_des_appeles;User ID=sa"

connectionString="Data Source=pc1021;Initial Catalog=gestion_des_appeles;User ID=sa"

غيرة في السطر الأول النقطة كما ترى في السطر الثاني غيرته باسم السيرفر pc1021 هل هذا فقط ماسافعله و شكرا

فعلت كل هذا الأن بدأ يظهر اسم السيرفر بكل الأجهزة لكن مع الأسف نفس الرسالة تظهر في الصورة اعلاه انا استعمل

sql server 2000 مع vb.net 2005

و في ارسالة يقول لا يمكن الاتصال ب

sql server 2005

لم افهم ليش ههههه

طيب ارفق الفورمه الى تعمل من خلالها الاتصال

تفضل أخي المشروع بالكامل مع قاعدة البيانات و اي اضاف اضافة تراه جيدة في فورم login ضفها و سطر الكونكشن موجودة في module و شكرا

http://www.megaupload.com/?d=BY4PROPW

لقد أريلة لك الايمال

med_p.toi hotmail.com

هذا كود فورم اوجين

Imports System.Data.SqlClient

Public Class login

Dim ds As New DataSet()

Dim str As String

Dim com As SqlDataAdapter

Dim comm As New SqlCommand

Dim tbl As New DataTable("utilisateurs")

Public id_agent, id_agent2 As String

Public rg, rg2 As String

Public is_admin As Boolean

Private Sub btn_lg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_lg.Click

Try

If txtus.Text = "" And txtps.Text = "" Then

MsgBox("saisi votre username and password", MsgBoxStyle.Information)

Exit Sub

ElseIf txtus.Text = "" Then

MsgBox("saisi votre username ", MsgBoxStyle.Information)

Exit Sub

ElseIf txtps.Text = "" Then

MsgBox("saisi votre password ", MsgBoxStyle.Information)

Exit Sub

End If

com = New SqlClient.SqlDataAdapter("select * from utilisateurs where id_utilisateur like '" + txtus.Text + "'", con)

ds.Tables.Add(tbl)

com.Fill(ds.Tables("utilisateurs"))

'If ds.Tables("utilisateurs").Rows(0).Item("utilisateur") <> txtus.Text Then 'Or ds.Tables("utilisateurs").Rows(0).Item("password") <> txtps.Text Then

'End If

str = CType(ds.Tables("utilisateurs").Rows(0).Item("isadmin"), String)

Dim log As String = "select * from utilisateurs where utilisateur='" & txtus.Text & "'and password ='" & txtps.Text & "'"

Dim comm As New SqlCommand(log, con)

Dim dr As SqlDataReader

con.Open()

dr = comm.ExecuteReader

If dr.HasRows = False Then

MsgBox("vous informations et incorrect", MsgBoxStyle.Information)

dr.Close()

End If

If dr.Read Then

If str = "admin" Then

cc = txtus.Text

Dim mn As New frmmenu

mn.Show()

Me.Hide()

Exit Sub

ElseIf str = "utilisateur" Then

cc = txtus.Text

Dim mn As New frmmenu

Dim gp As New gestion_des_appele

mn.Show()

Me.Hide()

mn.mnut.Visible = False

mn.mnst.Visible = False

mn.mnre.Visible = False

mn.strr.Visible = False

mn.StatistiquesToolStripMenuItem.Visible = False

gp.cmbpr.Enabled = True

Exit Sub

End If

End If

dr.Close()

con.Close()

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

Private Sub btn_an_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_an.Click

End

End Sub

Private Sub login_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim sqlMySrevers As Sql.SqlDataSourceEnumerator = _

Sql.SqlDataSourceEnumerator.Instance

'Get Srevers Data

With txtsr

.DataSource = sqlMySrevers.GetDataSources()

.DisplayMember = "ServerName"

End With

If txtsr.Items.Count <= 0 Then

MessageBox.Show("No Server found")

End If

End Sub

End Class

أين اضع الكود الذي أرسلته لي اخي

con.ConnectionString = String.Format _

("Data Source={0};Initial Catalog=gestion_des_appeles;Integrated Security=SSPI;User ID={1};Password={2}", _

txtsr.Text, txtus.Text, txtps.Text)

نا سطر الاتصال تبعي و ضعته في module

Dim lg As New login

Public con As New SqlConnection("Data Source=" & lg.txtsr.Text & ";Initial Catalog=gestion_des_appeles;User ID=sa")

و شكرا

بعد هذا التعب و المشاكل وجدة الحل و كان بسيط جدا و لم يكن في المشروع بل على جهازي و هو الفيروير الجدار الناري كان لا يدع أحد يتصل بقاعدة البيانات غير من جهازي

المهم الحمد لله اشتغل البرنامج و أشكر اخي الكريم kemoo الذي بذل مجهودا جبارا معي جزاه الله كل خير

لي بعد سأل أخي kemoo و هو أن كرستال ربورت يشتغل على جهازي و بعد عمل ملف الانستال و قمت بتثبيت البرنامج على الاجهزة الأخرى لم يعد يعمل يظهر لي error لكن على جهازي يعمل هل يجب ان أثبت من غير frimwak شيء أخر ؟؟؟

و شكرا أخي