• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

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

vbnetvbnet

اعضاء
  • عدد المشاركات

    53
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

5 عادي

عن vbnetvbnet

  • الرتبة
    عضو

معلومات الملف الشخصي

  • الجنس ذكر
  1. الاستعلام مع dataset

    إذا كنت تستخدم داتاسيت جاهزة بالبيانات لديك فإليك مثال على طلبك، حاولت فيه التبسيط قدر المستطاع فقط أضف بوتون باسم Button1 وجرب المثال (ستلاحظ وجود إجراء CreateDataSet لإنشاء داتاسيت برمجياً مع تعبئتة بجداول وبيانات وهو فقط لتجربة المثال ولا يلزمك في النهاية) (لا تنس بعد التجربة أت تستبدل اسم dataset1 باسم الداتاسيت التي لديك والاستغناء عن الاجراء CreateDataSet) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '' استخدم اسم الداتاست التي لديك بدلا من '' dataset1 '' واستغن عن الدالة '' CreateDataSet '' مع حذف السطر التالي Dim dataset1 As DataSet = CreateDataSet() '' إنشاء داتاست للتجربة '' الذي يهمك من هنا =============== Dim resultRows() As DataRow = dataset1.Tables("table2").Select("salary > 10000") For i = 0 To resultRows.Count - 1 Dim fname As String = dataset1.Tables("table1").Select("id=" & resultRows(i).Item("id"))(0).Item("fname") Dim salary As String = dataset1.Tables("table2").Select("id=" & resultRows(i).Item("id"))(0).Item("salary") '' '' عرض السطر الناتج بشكل منسق MsgBox(String.Format( _ "Name: " & vbTab & "{1}{0}" & _ "Salary: " & vbTab & "{2}{0}" _ , vbNewLine, fname, salary)) Next '' إلى هنا =============== End Subدالة CreateDataSet لإنشاء داتاست برمجياً '' دالة إنشاء داتاست برمجياً وتعبئتها بجداول وبيانات للتجربة =============================== Private Function CreateDataSet() As DataSet Dim ds As New DataSet ds.Tables.Add("table1") ds.Tables("table1").Columns.Add(New DataColumn("id", GetType(Integer))) ds.Tables("table1").Columns.Add(New DataColumn("fname", GetType(String))) ds.Tables("table1").Rows.Add(1, "ahmed") ds.Tables("table1").Rows.Add(2, "salem") ds.Tables("table1").Rows.Add(3, "wael") ds.Tables("table1").Rows.Add(4, "nabil") ds.Tables("table1").Rows.Add(5, "hesham") ds.Tables.Add("table2") ds.Tables("table2").Columns.Add(New DataColumn("id", GetType(Integer))) ds.Tables("table2").Columns.Add(New DataColumn("salary", GetType(Double))) ds.Tables("table2").Rows.Add(1, 8252.23) ds.Tables("table2").Rows.Add(2, 11254.57) ds.Tables("table2").Rows.Add(3, 7253.89) ds.Tables("table2").Rows.Add(4, 10120.11) ds.Tables("table2").Rows.Add(5, 9802.32) Return ds End Functionالله يوفقك
  2. الاستعلام مع dataset

    طريقة أخرى للإستعلام باستخدام INNER JOIN Dim sql As String = _ " SELECT * " & _ " FROM [table1] " & _ " " & _ " INNER JOIN [table2] " & _ " ON ([table2].[id] = [table1].[id]) " & _ " " & _ " WHERE ([table2].[salary] > 10000) "
  3. هناك حلان   أولهما: عدم إعطاء المستخدم صلاحية مدير   ثانيهما: الاعتماد على توقيت الشبكة سواء سيرفر أو إنترنت
  4. التعامل مع ip بوجود الراوتر

    .   ممكن تجرب الموجود في هذا الكتاب   بس لي طلب...   أن تضع المشروع في حالة نجاحه هنا في هذا الموضوع وجزاك الله خيراً، وإن سبقك غيرك فجزاه الله خيراً     . Peer-to-Peer with VB.NET.pdf
  5. .     ?How to print a HTML content using printer in php <?php$message ="<div> <table align='center'> <tr><td><h1>Reporte de Tipo de Documentos</h1></td></tr> <tr><td><h2>Farmaceutica MDC</h2></td></tr> </table></div><div> <table style='width:960px; margin:0 auto;'> <tr colspan='7'> <td><?php echo 'Fecha: '".$time = date('d/m/Y h:i:s A')."; ?></td> </tr> <tr bgcolor='#CCCCCC' height='30'> <td><b>Sr. No.</b></td> <td><b>Tipo Documento</b></td> <td><b>Cant. Pasos</b></td> <td><b>Costo</b></td> <td><b>Precio</b></td> <td><b>Balance</b></td> <td><b>Notifica Cliente</b></td> </tr> </table>";echo "<html><head></head><body>" . $message . "<script type='application/javascript'>window.onload=function(){window.print()}</script></body></html>";?>.   http://vbnetvbnet.comxa.com/print.php     .
  6. . مجموعة دروس عن المصفوفات في PHP للأستاذ عبدالله عيد     درس 25 - دورة php بالفيديو: شرح وتوضيح المصفوفات array   درس 26 - دورة php بالفيديو: المصفوفات الرقمية Numerical Indexed Array   درس 27 - دورة php : المصفوفات الترابطية Associative Indexed Array   درس 28 - دورة php بالفيديو: المصفوفات ثنائية البعد 2D Array   درس 29 - دورة php بالفيديو: المصفوفات ثنائية البعد 2D Array Extra   درس 30 - دورة php : معلومات إضافية عن المصفوفات More About Array     الله يوفقك يا بنتي .
  7. .   الغرض من الموضوع هو تسليط الضوء على مثل هذه الشركات ومعرفة أهدافهم     تقييم   لكل من شارك في النقاش
  8. سؤال حول Android layout

      شاهد هذا الموضوع يرشد لفيديو تطرق للنقطة الذي ذكرتها  [محاضرة فيديو] رأب الصدع بين مطور الاندرويد و المصمم
  9. Private Sub RadioButton123_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged If Not Me.Visible Then Exit Sub Static c As Boolean = False, f As String, t As String If c = False Then f = sender.Text c = Not c Exit Sub Else t = sender.Text c = Not c End If MsgBox("انت انتقلت من " & f & " الى " & t & "", &H180000) End Sub
  10. كان هناك نقاش كنت يومها حاضراً فيه (جلسة زملاء) لاحظت المحترفين يجمعون على التعلم عن طريق الكتاب الورقي هو الأفضل لأن الكتاب الالكتروني يسهل لك مسئلة النسخ واللصق والذي يتسبب في بطئ التقدم.
  11. مشكلة عند فراءة البيانات ؟

    . شكراً على التقييم   عندك مشكلة في جملة INSERT INTO MSGDetails ويجب مراجعته (أقصد أسماء جقوله) هنا تذكر أن الجدول هو MSGDetails ولكنك في حقوله تذكر جدول آخر وهو Staff بدليل ...INSERT INTO MSGDetails ( [Staff.Name],[Staff.depar],[Staff.Job],[Staff.Tel],MSG,date     يبدو أنك نسختها من جملة SELECT ولم تنتبه أنها تتضمن اسم جدول مختلف عن المطلوب تنفذيه هنا   وهذه اجتهاد مني (إن شاء الله ما دخلت في العنوان غلط)   (أزلت اسم الجدول Staff من جملة INSERT INTO MSGDetails على افتراض ان اسماء الحقول صحيحة) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click cn.Open() Dim se As String = " SELECT [ID],[Name], [depar], [Job], [Tel] " & _ " FROM [Staff] " & _ " WHERE [depar] = @depar; " Dim com As New SqlClient.SqlCommand(se, cn) com.Parameters.AddWithValue("@depar", ComboBox1.Text) Dim re As SqlClient.SqlDataReader = com.ExecuteReader If re.HasRows Then 're.Read() While re.Read() IDS = re.Item("ID") name = re.Item("Name") depar = re.Item("depar") job = re.Item("Job") tel = re.Item("Tel") Dim enter1 As String = " INSERT INTO [ozekimessageout] ( [sender], [receiver], [msg], [operator], [status] ) " & _ " VALUES ( @sender, @tel, @msg, @operator, @status ); " Dim com2 As New SqlClient.SqlCommand(enter1, cn) com.Parameters.AddWithValue("@sender", "0918244733") com.Parameters.AddWithValue("@tel", tel) com.Parameters.AddWithValue("@msg", TextBox1.Text) com.Parameters.AddWithValue("@operator", "Sudani") com.Parameters.AddWithValue("@status", "send") com2.ExecuteNonQuery() Dim enter As String = " INSERT INTO [MSGDetails] ( [Name], [depar], [Job], [Tel], [MSG], [date] ) " & _ " VALUES ( @Name, @depar, @job, @tel , @MSG , @date ); " Dim com1 As New SqlClient.SqlCommand(enter, cn) com.Parameters.AddWithValue("@Name", name) com.Parameters.AddWithValue("@depar", depar) com.Parameters.AddWithValue("@job", job) com.Parameters.AddWithValue("@tel", tel) com.Parameters.AddWithValue("@MSG", TextBox1.Text) com.Parameters.AddWithValue("@date", DateTimePicker1.Text) com1.ExecuteNonQuery() End While MsgBox(" ", MsgBoxStyle.Information, "OK") TextBox1.Text = "" ComboBox1.SelectedIndex = -1 Else MsgBox("No rows in " & ComboBox1.Text) End If ComboBox1.Focus() cn.Close() End Sub
  12. مشكله في كود php

    يبدو أنك لم تنتبهي أن templates هو مجلد وبداخله الملفات header.html وfooter.html  فيكون المسار للملفين هو templates/header.html وtemplates/footer.html   أنا أنشأت مجلد templates ووضعت بداخله الملفين header.html وfooter.html ليعمل الكود بدون حذف شيء منه (طبعاً على أساس أن الكود في ملف login.php ولا ننسى ملف welcome.php أيضاُ)
  13. مشكله في كود php

    الكود يعمل جيداً  http://vbnetvbnet.comxa.com/login.php   Username: testing Password: testpass <?php // Script 9.5 - login.php (third version after Scripts 8.8 and 8.13)// This page lets people log into the site. // Address error handing.ini_set ('display_errors', 1);error_reporting (E_ALL & ~E_NOTICE); // Set the page title and include the header file.define ('TITLE', 'Login'); // اذا وضعت هذي الجمله تعليقrequire ('templates/header.html'); //وايضا هذي الجمله // Basic HTML formatting stuff.print '<div id="leftcontent"> <h1>Login Form</h1> <p>Users who are logged in can take advantage of certain features like this, that, and the other thing.</p>'; // Check if the form has been submitted.if ( isset ($_POST['submit'])) { // Handle the form. if ( (!empty ($_POST['username'])) && (!empty ($_POST['password'])) ) { if ( ($_POST['username'] == 'testing') && ($_POST['password'] == 'testpass') ) { // Okay. // Do session stuff. session_start(); $_SESSION['username'] = 'testing'; $_SESSION['loggedin'] = time(); // Redirect the user to the welcome page! header ('Location: welcome.php'); exit(); } else { // Not okay. print '<p>The submitted username and password do not match those on file!<br />Go back and try again.</p>'; } } else { // Forgot a field. print '<p>Please make sure you enter both a username and a password!<br /> Go back and try again. </p>'; } } else { // Display the form. print '<form action="login.php" method="post"><p> Username: <input type="text" name="username" size="20" /><br /> Password: <input type="password" name="password" size="20" /><br /> <input type="submit" name="submit" value="Log In!" /></p> </form>'; } // Complete the HTML formatting stuff.print '</div>'; require ('templates/footer.html'); // Need the footer.وهذي الجمله ..?>
  14. الـ  Console  لا يدعم اللغة العربية.
  15. ما هو الخطأ هنا إخواني

    هل تريد إضافة جديد أم تحديث قديم؟ Insert لإضافة جديد ولا تستخدم Where Update لتحديث قديم ويجب استخدام Where