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

اقتباس

تم الاتصال ولكنه كان يقول server/Guest invalid login

فهمت انه دخل من مدخل ال Geust

فقمت بتفعيله علي الجهاز السيرفر

يوجد عندك خطوة غير صحيحة لانه من غير المفروض الدخول باستخدام حساب Guest

ارجو لو سمحت ان ترسل لي كود لبرنامج يتصل من جهاز الي سيرفر في شبكة محلية ليحمل ثلاث قيم مثلا (الاسم والسن والكود) رجاء ان يكون ب vb.net 2005

انا اعرف الاعدادات اللازمة لتجهيز السيرفر من الكتاب ولكني لا اعرف كيفية الاتصال الصحيحه فارجو تصحيح خطائي و رجاء وضع مثال بسيط

شكرا لك

هذا هو الكود الذي استخدمته كاملا حيث اي بي السيرفر 10.0.0.3

Imports System.Data.SqlClient

Public Class Form1
	Dim Con As New SqlConnection("Data Source=10.0.0.3,1433;Network Library=DBMSSOCN;Initial 
Catalog=database;integrated security=true;")

' هذه الطرقة للاتصال استخدمتها ايضا ولم تنجح حيث انها اخبرتني ان المستخدم خطا مع انها تعمل علي جهاز السيرفر نفسه
	'  Dim Con As New SqlConnection("Data Source=10.0.0.3,1433;Network Library=DBMSSOCN;Initial Catalog=database;User ID=userx;Password=aaaaaa;")

	Dim SqlStr As String
	Dim Cmd As SqlCommand
	Dim DR As SqlDataReader
	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
		SqlStr = "INSERT INTO VB(UserID, Username, Password)"
		SqlStr = SqlStr & "VALUES"
		SqlStr = SqlStr & "('" & TextBox1.Text.Trim & "', '" & TextBox2.Text.Trim & "', '" & TextBox3.Text.Trim & "')"
		Cmd = New SqlCommand(SqlStr, Con)
		Con.Open()
		Cmd.ExecuteReader()
		Con.Close()
		MsgBox("Data Saved Successfully")

	End Sub

	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
		SqlStr = "SELECT * from VB WHERE (VB.UserID='" & TxtSearch.Text.Trim & "')"
		Con.Open()
		Cmd = New SqlCommand(SqlStr, Con)
		DR = Cmd.ExecuteReader
		If DR.HasRows Then

			While DR.Read
				TextBox5.Text = DR("UserID")
				TextBox6.Text = DR("Username")
				TextBox4.Text = DR("password")
			End While
		Else
			MsgBox("Not Found")

		End If
		Con.Close()
	End Sub
End Class

Command1 هو للاضافة وهو يضيف القيم التي في

textbox1 & 2 & 3

command2 هو للعرض وهو يعرض في

textbox4 & 5 & 6

اسم فاعده البيانات database