Visual Basic

satc wrote:

ok , I see that you want more to speak for other topics than the question topic.

satc wrote:

do you have any moral code here that I can read and not make an error anymore?

satc wrote:

Thank you !

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

satc wrote:

Have you tried this before speaking ?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

int startTick = Environment.TickCount; 

if (Environment.TickCount - startTick > 250)
{
  UpdateStatus();
  startTick = Environment.TickCount;
}

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Class dialogWait

    Public WriteOnly Property progressmax() As Integer
        Set(value As Integer)
            myprogress.Maximum = value
        End Set
    End Property

If (itemIndex.Count > 0) Then
    dialogWait.progressmax = itemIndex.Count
End If

rC = 0
For Each i As item In itemIndexes
    rC += 1
    dialogWait.UpdateProgress(rC, "Calculating profit for " & i.ItemNumber & "  (" & rC & " of " & itemIndex.Count & ")  ")

    load_SR_Invoice_Profit(connection, i.ItemNumber, profits)
Next

If (invIndex.Count > 0) Then
  dialogPos = 0.0
  dialogWait.pb_progress.Maximum = 100
  dialogWait.UpdateProgress(0, "Located " & invIndex.Count & " invoices(s)")

  Dim rC As Integer = 0
  For Each i As invoiceIndex In invIndex

    Dim m_percentage As Decimal = ((rC / invIndex.Count()) * 100)
    Dim m_dialogPos As Integer = Math.Round(m_percentage)
    dialogWait.UpdateProgress(m_dialogPos, "Calculating profit for Invoice " & i.InvoiceNumber & "  (" & rC & " of " & invIndex.Count & ")  ")

    load_SR_Invoice_Profit(connection, i.InvoiceNumber, profits)

    rC += 1

Next

Dim reader As System.Data.OleDb.OleDbDataReader = command.ExecuteReader()
            While reader.Read()

                Dim m_itemNumber As String = reader.GetValue(0)
                Dim aFlag As Boolean = p.Exists(Function(m) m.ItemNumber = m_itemNumber)
                If (False = aFlag) Then

                    p.Add(New itemIndex() With {
                          .ItemNumber = m_itemNumber
                    })

                End If

            End While

• Create a Visual C# SMO Project in Visual Studio .NET[^]
• Microsoft.SqlServer.Management.Smo Namespace[^]
• and for example Database.Tables Property[^]

Private Sub txtPaese_Leave_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPaese.Leave
    Try
        Using cn As New OdbcConnection("dsn=PHOENIXDB;uid=SYSDBA;pwd=masterkey;")
            
            ' TODO: Only select the columns you're going to use.
            Dim query As String = "SELECT TOP 1 * FROM TBL_COMUNI WHERE COMUNE = ?"
            
            Using cmd As New OdbcCommand(query, cn)
                
                ' ODBC doesn't use named parameters, so only the order matters here:
                cmd.Parameters.AddWithValue("p0", txtPaese.Text)
                
                ' No need for the DataSet / OdbcDataAdapter code here,
                ' since you're not using the loaded data anyway.
                
                cn.Open()
                
                Using reader As OdbcDataReader = cmd.ExecuteReader(CommandBehiavor.CloseConnection)
                    If reader.Read() Then
                        ' TODO: Update the column index when you change the query,
                        '       or use the column name instead.
                        Me.txtCAP.Text = reader.Item(11)
                        Me.txtPR.Text = reader.Item(4)
                    Else
                        ' TODO: The record was not found. Tell the user.
                    End If
                End Using
            End Using
        End Using
        
    Catch ex As Exception
        MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OkOnly, "Connection Error !!")
    End Try
End Sub