quote:

---

Originally posted by zahidbd83

These codes works properly. But I dont know why sometimes it fails.

--------------------------------------------------------------------
Imports System.Data.SqlClient

Module Module1
Dim con As SqlConnection
Public IDDD As String

Public Sub createConnection()
Dim C As String
C = My.Settings.StockConnectionString

con = New SqlConnection
con.ConnectionString = C
con.Open()
End Sub

Private Sub checkConnection()

If con Is Nothing OrElse con.State = ConnectionState.Closed Then
createConnection()
End If

End Sub

Public Function getDataReader(ByVal SQL As String) As SqlDataReader

checkConnection()
Dim cmd As New SqlCommand(SQL, con)
Dim dr As SqlDataReader
dr = cmd.ExecuteReader
Return dr

End Function

Public Function getDataTable(ByVal SQL As String) As DataTable

checkConnection()
Dim cmd As New SqlCommand(SQL, con)
Dim table As New DataTable
Dim da As New SqlDataAdapter(cmd)
da.Fill(table)
Return table

End Function

Public Sub executeQuery(ByVal SQL As String)
checkConnection()
Dim cmd As New SqlCommand(SQL, con)
cmd.ExecuteNonQuery()
End Sub
--------------------------------------------------------------------
Imports System.Data.SqlClient
Imports System.Windows.Forms

Public Class Client_Sale

Dim query, q1, q2, q3, q4, q5, q6 As String
Dim dr As SqlClient.SqlDataReader
Dim Qbalance, csbalance, cbalance As Integer

--------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
query = "Select quantity From Pname Where productname = '" & ProductnameTextBox.Text & "'"
dr = getDataReader(query)
If (dr IsNot Nothing AndAlso dr.HasRows) Then
dr.Read()
End If
Qbalance = dr("quantity").ToString
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If dr IsNot Nothing AndAlso Not dr.IsClosed Then
dr.Close()
End If
End Try

Try
query = "Select cbalance From client Where clientname = '" & ClientnameTextBox.Text & "'"
dr = getDataReader(query)
If (dr IsNot Nothing AndAlso dr.HasRows) Then
dr.Read()
End If
csbalance = dr("cbalance").ToString
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If dr IsNot Nothing AndAlso Not dr.IsClosed Then
dr.Close()
End If
End Try


Try
q1 = "Update Client Set cbalance = cbalance + '" & Val(TextBox5.Text) & "' Where clientname = '" & ClientnameTextBox.Text & "'"
q2 = "Insert Into cdeal(clilink,ctype,cdeal,cdate,copen,cdebit,cclose) Values('" & ClientnameTextBox.Text & "','Sale','‡diZ " & ProductnameTextBox.Text & " (" & TextBox3.Text & "-" & TextBox4.Text & ")',GetDate(),'" & csbalance & "','" & Val(TextBox5.Text) & "','" & csbalance + Val(TextBox5.Text) & "')"
q3 = "Update PName Set quantity = quantity + '" & Val(TextBox3.Text) & "' Where productname = '" & ProductnameTextBox.Text & "'"
q5 = "Insert Into Pdeal(pnamelink,protype,pdeal,pdate,popen,pdebit,pclose) values('" & ProductnameTextBox.Text & "','Creturn','weµq ‡diZ (" & TextBox3.Text & "-" & TextBox4.Text & ")',GetDate(),'" & Qbalance & "','" & TextBox3.Text & "','" & Qbalance + Val(TextBox3.Text) & "')"
q6 = "Insert Into ACS(scom,spt,spn,sdate,stype,sdeal,sqty,staka) values('" & DataGridView3.CurrentCell.Value & "','" & DataGridView2.CurrentCell.Value & "','" & ProductnameTextBox.Text & "',GetDate(),'CC','weµq †diZ (" & ClientnameTextBox.Text & ")','" & -Val(TextBox3.Text) & "','" & -Val(TextBox5.Text) & "')"

executeQuery(q1)
executeQuery(q2)
executeQuery(q3)
executeQuery(q4)
executeQuery(q5)
executeQuery(q6)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

---