سؤال في winsock

السؤال غير مفهوم ..

( لدي شبكة منزلية و قد اعدد برنامج على احد الاجهزة ) ... إذا البرنامج على جهاز ..

( ولكن قاعدة البيانات الخاصة بالبرنامج على جهاز آخر ).. قاعدة البيانات على جهاز آخر ..

( هل من أحد يساعدني في عمل باتش يقوم بالاتصال بالبرنامج الاساسي و اخذ منه البيانات ) .. هناك برنامج رئيسي تريد أن تتصل به لتأخذ منه البيانات إذاً فهو الجهاز الذي به قاعدة البيانات ...

( وتسجيلها في قاعدة البيانات ) .. !!!!!!!!! أي قاعدة بيانات ؟؟

ياريت توضح السؤال أكثر ..

عفواً تكررت المشاركة . بالخطأ ..

اذا كان الموجود علي الجهاز الاخر قاعدة بيانات وتريد فتحها استخدم مسارها للفتح

\\pc1/d/database.mdb

عظيم اخى ياسر اجابتك و لكنك ذكرت في الكود ان الجهاز الاخر يسمى PC1 و سؤالى هو كيف يمكنك معرفة اسمة حيث انى اريد ان اقوم بعمل برنامج يعمل على اي شبكة منزلية مهما كانت اسماء الاجهزة عليها

أخي شمس

يجب عليك معرفة اسم جهاز في الشبكة التي تقوم بعملها وجعله الماستر دائما

حتي لا تحدث اخطاء في البرنامج

اما باقي الاجهزة فلا يهم ذلك لها لان البرنامج سوف يحفظ البيانات في جهاز واحد فقط وهو اللي انت محدده وهذا يحدث دون استخدام اداة الوين سوك

وبالتوفيق ان شاء الله

اذن هل يوجد كود يقوم بمعرفة اسم الجهاز و يمكنة ايضا تغيير هذا الاسم

up

إذا كنت تستخدم أداة ( Winsock ) فأستخدم الخاصية التالية ...

sock.LocalHostName

الف شكر

و لكن ان كنت لا استخدمها فما الكود

Option Explicit

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Command1_Click()
    
    Dim Buffer As String
    Dim BufferSize As Long
    
    BufferSize = 250
    
    Buffer = String(BufferSize, " ")
    
    Call GetComputerName(Buffer, BufferSize)
    
    Text1.Text = Buffer
    
End Sub

أتمنى يكون هذا الذي تريد ...

السلام عليكم ورحمة الله وبركاته

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

msgbox environ("computername") 0

وعيش حياتك بقا يا مان يلاي اي خدمة

اشكرك كثيراا