السلام عليكم اخواني
اولا انا قمت بعمل برنامج واشتغل تمام بدون اي مشاكل علي جهازي
فقمت بنشره اليوم وفوجأت بالمشكلة الموجودة بالصورة قمت بالبحث عن حل وجدت الحل لكن الحل ينفع في بعد الحواسيب
والباقي لا فانا اريد حالا جذريا لهذا المشكل
![[صورة مرفقة: p_623m072g1.png]](https://d.top4top.net/p_623m072g1.png)
اضغط Details لنعرف المشكلة
الرسالة تعني ( المسار المحدد غير مدعوم).
مرحبا اخى
مثل ما ذكر اخى سعود، خطا في تنسيق المسار (قد يحتوي رموز غير مقبوله في المسار)
[
attachment=15449]
ومثل ما ذكر اخى محمد، لو ضغطت Details لعرضت تفاصيل اكثر عن المشكله
تفضلوا اسم البرنامج وانا مشفر البرنامج ايضا ONE Family.exe
الموضوع إذا يخص Webclient
هل من الممكن تعمل مثال بسيط لنفس الكود لمعرفة الخطا؟
عموما الخطا بالمسار المحدد لحفظ الملف.
ضيف ملف قاعدة البيانات إلى ملف البرنامج وجرب شغله
هذا هو الكود
كود :
dt.Columns.AddRange(New DataColumn() {New DataColumn("title"), New DataColumn("section"), New DataColumn("link")})
Dim wc As New Net.WebClient()
Dim src As String = wc.DownloadString("http://arab-live.ucoz.net/Test.txt")
(16-09-17, 02:17 PM)عبدالرحمن المكاوي كتب : [ -> ]هذا هو الكود
كود :
dt.Columns.AddRange(New DataColumn() {New DataColumn("title"), New DataColumn("section"), New DataColumn("link")})
Dim wc As New Net.WebClient()
Dim src As String = wc.DownloadString("http://arab-live.ucoz.net/Test.txt")
الخطا يخص الـPath المحلي لحفظ الملف او النص.
اكمل الكود بعد تحميل النص من الرابط ماذا كتبت؟
كود :
dt.Columns.AddRange(New DataColumn() {New DataColumn("title"), New DataColumn("section"), New DataColumn("link")})
Dim wc As New Net.WebClient()
Dim src As String = wc.DownloadString("http://arab-live.ucoz.net/Test.txt")
For Each str As String In src.Split(vbLf) '
Dim splt() = Split(str, ",")
Dim r As DataRow = dt.NewRow
r.Item("title") = splt(0)
r.Item("section") = splt(1)
r.Item("link") = splt(2)
dt.Rows.Add(r)
Next
TextBox1_TextChanged(Nothing, Nothing)
Dim q = From x As DataRow In dt Select x.Item("section") Distinct
ComboBox1.Items.AddRange(q.ToArray)
ComboBox1.SelectedIndex = 0
TextBox1.Focus()