Visual Basic

Vuyiswamb wrote:

On this one i need your help, i got Stucked. the Code Complained in the Following line.


Dim DataAdapter As New SqlDataAdapter(BuildBasicQuery("GetInvoice" _
, "@invoiceNumber", invoiceNumber))

Dim dataAdapter As SqlDataAdapter = BuildBasicQuery("GetInvoice")

Vuyiswamb wrote:

The Compiler Complained about All the lines in this Function.

Vuyiswamb wrote:

Dim cmd As New SqlCommand(BuildCommand("CreateInvoice"))

Vuyiswamb wrote:

cmd.Parameters.AddWithValue("@billingAddressId") billingAddressId)

Vuyiswamb wrote:

int result = (int)cmd.ExecuteScalar()
i Think i you can confirm my Code, i will try to understand.

    public int CreateInvoice(int customerId, int billingAddressId, 
        DateTime date)
    {
        SqlCommand cmd = BuildCommand("CreateInvoice");
        cmd.Parameters.AddWithValue("@customerId", customerId);
        cmd.Parameters.AddWithValue("@billingAddressId", 
            billingAddressId);
        cmd.Parameters.AddWithValue("@date", date);

        cmd.Connection.Open();
        int result = (int)cmd.ExecuteScalar();
        cmd.Connection.Close();
        return result;
    }

}

Vuyiswamb wrote:

i had a problem with the Connection string

DIm connectionString as String = ConfigurationManager.AppSettings["ConnectionString"]

The IDE tells me that "Identifier Expected"
The First one is the namespaces that needs to be imported

Imports System.Configuration

Vuyiswamb wrote:

using System.Collections.Generic;

This line it does not recognise the Generic. if i remove it "Generic" it does not Complain.

Vuyiswamb wrote:

The Second Function i coverted it like this

Private Function BuildCommand(ByVal storedProcedureName As String)
    ' Create a connection to the database.
    Dim connection As New SqlConnection(connectionString)
    ' Create the command object - The named stored procedure
    ' will be called when needed.
    Dim result As New SqlCommand(storedProcedureName, connection)
    result.CommandType = CommandType.StoredProcedure
    Return result
End Function

Vuyiswamb wrote:

My Following Function is like this

' Builds a DataAdapter that can be used for retrieving the
' results of queries
Private Function BuildBasicQuery(ByVal storedProcedureName As String)
    Dim cmd As SqlCommand = BuildCommand(storedProcedureName)
    ' Set up the data adapter to use the command already setup.
    Dim result As New SqlDataAdapter(cmd)
    Return result
End Function

Vuyiswamb wrote:

On the Last one, i was Completely lost

Public Function CreateInvoice(ByVal customerId As Integer, _ ByVal billingAddressId As Integer, ByVal DateTime As Date) Dim cmd As New SqlCommand(BuildCommand("CreateInvoice")) cmd.Parameters.AddWithValue("@customerId", customerId) cmd.Parameters.AddWithValue("@billingAddressId") billingAddressId) cmd.Parameters.AddWithValue("@date",date) cmd.Connection.Open() dim result as Integer = (integer).cmd.ExecuteScalar() cmd.Connection.Close() Return result End Function


The Compiler Complained about All the lines in this Function. the other thing is that i did not understand the Following line in the last function

Public Function CreateInvoice(ByVal customerId As Integer, _
        ByVal billingAddressId As Integer, ByVal ByVal Date As DateTime) As Integer
    Dim cmd As SqlCommand = BuildCommand("CreateInvoice")
    cmd.Parameters.AddWithValue("@customerId", customerId)
    cmd.Parameters.AddWithValue("@billingAddressId", billingAddressId)
    cmd.Parameters.AddWithValue("@date", date)
    cmd.Connection.Open()
    Dim result as Integer = CInt(cmd.ExecuteScalar())
    cmd.Connection.Close()
    Return result
End Function