منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
محتاج الكود بحث عن اخر فاتورة مبيعات (مستعجل يا اخواني) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : محتاج الكود بحث عن اخر فاتورة مبيعات (مستعجل يا اخواني) (/showthread.php?tid=49684)



محتاج الكود بحث عن اخر فاتورة مبيعات (مستعجل يا اخواني) - Hamza8484 - 24-07-24

هل توجد طريقة عمل فورم بحث عن اخر فاتورة مبيعات عن طريق التاريخ + رقم الفاتورة + اسم العميل انا صممت الفورم ولكن باقيلي الكود اللي يقدر يساعدني في الكود :
مرفق 


RE: محتاج الكود بحث عن اخر فاتورة مبيعات (مستعجل يا اخواني) - تركي الحلواني - 25-07-24

جرب هذه الطريقة
PHP كود :
Private Sub btnSearch_Click(sender As ObjectAs EventArgsHandles btnSearch.Click
        Dim connectionString 
As String "connection"
 
       Using connection As New SqlConnection(connectionString)
 
                    Dim query As String "SELECT TOP 10 * FROM Invoices WHERE 1=1"

 
           If Not String.IsNullOrEmpty(txtDate.TextThen
                query 
&= " AND InvoiceDate = @InvoiceDate"
 
           End If
 
           If Not String.IsNullOrEmpty(txtInvoiceNumber.TextThen
                query 
&= " AND InvoiceNumber = @InvoiceNumber"
 
           End If
 
           If Not String.IsNullOrEmpty(txtCustomerName.TextThen
                query 
&= " AND CustomerName LIKE @CustomerName"
 
           End If

 
           query &= " ORDER BY CreatedDate DESC"

 
           Using command As New SqlCommand(queryconnection)
 
                             If Not String.IsNullOrEmpty(txtDate.TextThen
                    command
.Parameters.AddWithValue("@InvoiceDate"txtDate.Text)
 
               End If
 
               If Not String.IsNullOrEmpty(txtInvoiceNumber.TextThen
                    command
.Parameters.AddWithValue("@InvoiceNumber"txtInvoiceNumber.Text)
 
               End If
 
               If Not String.IsNullOrEmpty(txtCustomerName.TextThen
                    command
.Parameters.AddWithValue("@CustomerName""%" txtCustomerName.Text "%")
 
               End If

 
               Dim adapter As New SqlDataAdapter(command)
 
               Dim table As New DataTable()
 
               adapter.Fill(table)
 
               dataGridViewResults.DataSource table
            End Using
        End Using
    End Sub 



RE: محتاج الكود بحث عن اخر فاتورة مبيعات (مستعجل يا اخواني) - ba2e44ca9a - 21-08-24

بارك الله فيك







192.168.100.1 192.168.1.1