15-06-13, 07:11 AM
السلام عليكم وحمة الله وبركاته
الحمد الله انحلت مشكله الاتصال في الموضوع سابق عن طريق وضع اي بي في كود الاتصال
لكن
لدي مشكله بعد تعريف تكس بوكس في الموديل اعطاه قيمة ولكن لم يقبل الاتصال بجهاز الموضوع عليه قاعده البيانات
وضعت في الموديل :-
هذى صور من النموذج
صوره المشكله :-
ارفقت لكم المثال :-
http://vb4arb.com/vb/uploaded/276_21371265798.zip
اتمنى المساعده ...
الحمد الله انحلت مشكله الاتصال في الموضوع سابق عن طريق وضع اي بي في كود الاتصال
لكن
لدي مشكله بعد تعريف تكس بوكس في الموديل اعطاه قيمة ولكن لم يقبل الاتصال بجهاز الموضوع عليه قاعده البيانات
وضعت في الموديل :-
كود :
Imports System.Data.SqlClient
Module Module1
'////////////////////////////////////////////////////////////////////////////
' يحمل قيمة عنوان الاي بي
Public ServerIPAddress As String
' تعريف تكس بوكس خاص بي اي بي من نموذج Form1
Public Sub GetConnection()
ServerIPAddress = Form1.TxtServerIPAddess.Text
End Sub
'////////////////////////////////////////////////////////////////////////////
'متغير الاسم المستخدم
Public fusername As String
'////////////////////////////////////////////////////////////////////////////
Public sqlconn As New SqlConnection("Data Source= " + ServerIPAddress + " ,49422;Network Library=DBMSSOCN;Initial Catalog=RCC_ksa;User ID=SA;Password=123456;")
End Moduleهذى صور من النموذج
صوره المشكله :-
ارفقت لكم المثال :-
http://vb4arb.com/vb/uploaded/276_21371265798.zip
اتمنى المساعده ...
)