-
طلب من أحد الأصدقاء عمل برنامج يقدم معلومات لكن هذا البرنامج يكون متصل بالإنترنيت عن طريق قاعده بيانات ...
كيف لي أن أقوم بتوصيل قاعدة بيانات من الإنترنيت إلى برنامج في الفجيول بيسك وهل يجب أن يكون المستضيف يدعم خاصيه معينه ...
أرجو سرعة الرد .................................
------------------
Nasa Baby
nb@jta.cjb.net
http://jta.cjb.net
-
نعم ممكن ولكن باداة Winsock
...
------------------
المعرفة قوة
-
انا حطيت هذه الاداة لكن ماعرفت أستخدمها ؟؟حقت إيش هي ؟
ممكن تفصل شوي أخوي ...
ولو يكون مدعم بمثال يكون أفضل ؟؟؟
و ابغي أرسالك على بريدك لو ممكن
وشكراًًًً
------------------
Nasa Baby
nb@jta.cjb.net http://jta.cjb.net
[b]<small><small>[ تم تعديل الموضوع بواسطة Nasa Baby يوم 12-03-2000]
-
ممكن عن طريق odbc وممحتاجة منك حاجة غير تخزين اكسيس او اي داتابيس
-
ياشباب أرجوكم ساعدوني .. الموضوع مهم
كيف عن طريق Winsock
و كيف عن طريق odbc
مع العلم البرنامج يبغاه للتوزيع ..
------------------
Nasa Baby
nb@jta.cjb.net
http://jta.cjb.net
-
كيف ما تعمل ربط بين اي اس بي وقاعدة بيانات اعمل لفيجوال بيسك وممكن تحصل معلومات اكثر في الهليب في فيجوال بيسك 5
-
هذا مثال على الوينسك
افهمه ثم استعمله مع قاعدة البيانات
---------------------------------------------------
قياسيEXE\1- انشيء نموذج فورم
frmPeerA2- غير اسم الفورم الى
Peer A3- غير عنوان الفورم الي
في الفورم ثم سميه Winsock4 - ارسم اداة
udpPeerA
ثم غير البروتوكول الى Protocol 5- في صفحة الخصائص اضغط على
UDPProtocol
وسميهما TextBox 6- ارسم اثنان من ادة.
على الترتيبtxtSend, txtOutput
7- اضف الكود التالي:
<BLOCKQUOTE><font size="1" face=" Arial">code:</font><HR><pre>
Private Sub Form_Load()
' The control's name is udpPeerA
With udpPeerA
' IMPORTANT: be sure to change the RemoteHost
' value to the name of your computer.
.RemoteHost= "PeerB"
.RemotePort = 1001 ' Port to connect to.
.Bind 1002 ' Bind to the local port.
End With
frmPeerB.Show ' Show the second form.
End Sub
Private Sub txtSend_Change()
' Send text as soon as it's typed.
udpPeerA.SendData txtSend.Text
End Sub
Private Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerA.GetData strData
txtOutput.Text = strData
End Sub
[/code]
ثم ---------------------------
\1- اضف نموذج فورم في نفس المشروع
frmPeerB2- غير اسم الفورم الى
Peer B3- غير عنوان الفورم الي
في الفورم ثم سميه Winsock4 - ارسم اداة
udpPeerB
ثم غير البروتوكول الى Protocol 5- في صفحة الخصائص اضغط على
UDPProtocol
وسميهما TextBox 6- ارسم اثنان من ادة.
على الترتيبtxtSend, txtOutput
7- اضف الكود التالي:
<BLOCKQUOTE><font size="1" face=" Arial">code:</font><HR><pre>
Private Sub Form_Load()
' The control's name is udpPeerB.
With udpPeerB
' IMPORTANT: be sure to change the RemoteHost
' value to the name of your computer.
.RemoteHost= "PeerA"
.RemotePort = 1002 ' Port to connect to.
.Bind 1001 ' Bind to the local port.
End With
End Sub
Private Sub txtSend_Change()
' Send text as soon as it's typed.
udpPeerB.SendData txtSend.Text
End Sub
Private Sub udpPeerB_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
udpPeerB.GetData strData
txtOutput.Text = strData
End Sub
[/code]
------------------
المعرفة قوة
[b]<small><small>[ تم تعديل الموضوع بواسطة M-006 يوم 18-03-2000]
ضوابط المشاركة
- لا تستطيع إضافة مواضيع جديدة
- لا تستطيع الرد على المواضيع
- لا تستطيع إرفاق ملفات
- لا تستطيع تعديل مشاركاتك
-
قوانين المنتدى
أضف موقعك هنا|
شقق للايجار في الكويت |
بيوت للبيع في الكويت |
شركة كشف تسربات المياه |
شركة عزل اسطح بالرياض |
عزل فوم بالرياض|
عزل اسطح بالرياض |
كشف تسربات المياة بالرياض |
شركة عزل اسطح بالرياض