Visual Basic

Quote:

Dim Rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim param As New ADODB.Parameter
Dim Str As String
Dim Omwosi, Omwaka, Enyanga, Contp
Dim res As Integer

Enyanga = Day(Now)
Omwosi = Month(Now)
Omwaka = Year(Now)

If Len(Enyanga) = 1 Then
Enyanga = "0" & Enyanga
End If

If Len(Omwosi) = 1 Then
Omwosi = "0" & Omwosi
End If

If Rs.State = 1 Then
Rs.Close
End If

Contp = Omwosi & Omwaka
v_USR_NM = Username
V_ERRR_MSSG = ""
v_Chqno = TxtChqNo.Text
ChqAcNo = TxtAliase.Text
Locator = TxtAcNo.Text
Amount = TxtAmount.Text
V_imageF = TxtFimg.Text
v_imageB = TxtBimg.Text
v_Locator = Locator
v_Amnt_ip = Amount
V_CRRNT_DTNO = Omwaka & Omwosi & Enyanga

TranT = "CHEQCLR"
Call Create_TransactionID

With cmd
.ActiveConnection = ConACExp
.CommandText = "InHseClr_dp"
.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("result", adInteger, adParamOutput)
cmd.Parameters.Append cmd.CreateParameter("ChqAcNo", adVarChar, adParamInput, 30, ChqAcNo)
cmd.Parameters.Append cmd.CreateParameter("v_Locator", adVarChar, adParamInput, 30, v_Locator)
cmd.Parameters.Append cmd.CreateParameter("Chqno", adVarChar, adParamInput, 30, v_Chqno)
cmd.Parameters.Append cmd.CreateParameter("v_Amnt_ip", adVarChar, adParamInput, 30, v_Amnt_ip)
cmd.Parameters.Append cmd.CreateParameter("v_USR_NM", adVarChar, adParamInput, 60, v_USR_NM)
cmd.Parameters.Append cmd.CreateParameter("BcodeUser", adVarChar, adParamInput, 10, BcodeUser)
cmd.Parameters.Append cmd.CreateParameter("CompName", adVarChar, adParamInput, 60, CompName)
cmd.Parameters.Append cmd.CreateParameter("Absid", adVarChar, adParamInput, 60, Absid)
cmd.Parameters.Append cmd.CreateParameter("Contp", adVarChar, adParamInput, 20, Contp)
cmd.Parameters.Append cmd.CreateParameter("V_imageF", adVarChar, adParamInput, 200, V_imageF)
cmd.Parameters.Append cmd.CreateParameter("v_imageB", adVarChar, adParamInput, 200, v_imageB)
cmd.Parameters.Append cmd.CreateParameter("V_CRRNT_DTNO", adChar, adParamInput, 20, V_CRRNT_DTNO)
Set Rs = cmd.Execute
res = cmd("result")
If (res = 1) Then
MsgBox "Updated Successfully"
Else
MsgBox "Error Update unsuccessful.", vbInformation, "No update done"
End If
Set cmd.ActiveConnection = Nothing

End With
'

Quote:

PROCEDURE InHseClr_dp
( result IN OUT NUMBER,
ChqAcNo IN VARCHAR2,
v_Locator IN VARCHAR2,
v_ChqNO IN VARCHAR2,
v_Amnt_ip IN out VARCHAR2,
v_USR_NM IN VARCHAR2,
BCODEUSER IN VARCHAR2,
CompName IN VARCHAR2,
Absid IN VARCHAR2,
ContP IN VARCHAR2,
V_imageF IN VARCHAR2,
v_imageB IN VARCHAR2,
V_CRRNT_DTNO IN VARCHAR2
) IS
-- variables
Bcode varchar2(5);
v_ACCNO varchar2(30);
v_BCODE varchar2(5);

Is the following code correct to load table field data to ComboBox? It is working fine but would like to know whether it is the perfect one.

Public Function cboLoadPlants()
        Dim dt As DataTable = DAL.LoadData("SELECT DISTINCT Trim(Company) As [Company] FROM CompaniesTable").Tables(0)
        cboCompany.ValueMember = "Company"
        cboCompany.DataSource = dt
        cboCompany.SelectedIndex = 0
        Return True
        txtSearch.Select()
    End Function

hi,

can i create sql query in query builder by selecting sql views instead of selecting sql tables??
please someone help me...!

Public Sub FilllstItem2(ByVal sItemEntered As Integer) Dim dtInv As DataTable = dsRpt.Tables("tblItemData") Dim dv As New DataView(dtInv) Dim i As Integer
    With dv
         .RowFilter = "RecordID = '" & Variables.g_strCatId & CType(sItemEntered, String) & "'"
         .Sort = "RecordID"
     End With
     If dv.Count > 0 Then
         For i = 0 To dv.Count - 1
             lstboxItems.Items.Add(CType(dv.Item(i)("ItemNo"), String) & " - " & CType(dv.Item(i)("Description"), String))
         Next i
     Else
     End If
     dv.Dispose()
     ReDim itemArray(lstboxItems.Items.Count)

End Sub