Visual Basic

Dim x As New MyComClass

karthickmani63 wrote:

Dim TestObject As XYZ

Dim TestObject As New XYZ

karthickmani63 wrote:

Should i also refer the path of the licence file to the created object?

Private Sub btnUpdate_Click(ByVal sender As System.Object, _
       ByVal e As System.EventArgs) Handles btnUpdate.Click

   sb = New StringBuilder
       sb.Append("UPDATE [T_Analysis] SET ")
       sb.Append(" [OrderDate]= '" & Me.txtDate.Text & "'")
       sb.Append(",[OrderName]= '" & Me.txtOrderName.Text & "'")
       sb.Append(" WHERE [OrderNo]= " & Me.txtOrder.Text & "")
   ADOExecute(sb.ToString)

   End Sub

[Module]
 Public Sub ADOExecute(ByVal ssql As String)
        Dim sqlexec As Integer
        Dim adocmd As ADODB.Command
        Dim adocon As New ADODB.Connection
        Try
            adocon = New ADODB.Connection
            adocon.ConnectionString = adoconstr
            adocon.CursorLocation = ADODB.CursorLocationEnum.adUseClient
            adocon.Open()

            adocmd = New ADODB.Command
            adocmd.ActiveConnection = adocon
            adocmd.CommandText = ssql
            adocmd.Execute(sqlexec)
            rowsAffected = sqlexec

        Catch ex As Exception
            log.Debug(ex.ToString)
            Throw (ex)
        Finally
            If adocon.State <> ConnectionState.Closed Then
                adocon.Close()
                adocon = Nothing
                adocmd = Nothing
            End If
        End Try
    End Sub

(connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Database\DrinkingWater.mdb;Persist Security Info=True"<br />
            providerName="System.Data.OleDb" )

C:..\\Visual Studio 2005\Projects\DrinkingWater\DrinkingWater\bin\Debug\Database<br />
	Inside the bin folder<br />
		{DrinkingWater.ldb}   → lock <br />
		{DrinkingWater.mdb}　 → database<br />
<br />
C:..\\Visual Studio 2005\Projects\DrinkingWater\DrinkingWater\Database<br />
	Inside the Project Folder<br />
		{DrinkingWater.mdb}