VB 2005 UPDATE / .EXE / FIND

ALMIRSAFADI 22/08/2006 14:02:17
#166497
Estou migrando e estou meio perdido,
No VB6 - Data1.Recordset.Edit
Data1.Recordset.Update
como será no VB 2005

e mais,
Como criar arquivo .exe no VB 6 basta entrar no menu arquivo e mandar

método Find do VB 6 como será no VB 2005,
grato
MORDOR 22/08/2006 16:22:13
#166529 Resposta escolhida
No VB 2005 você tem que usar o método Update de um DataAdapter pra refletir as alterações dos registros no banco de dados, mas existem diversas formas de atingir o mesmo resultado.

Pra compilar o EXE no VB 6 é só clicar no menu "Arquivo -> Make NomeDoProjeto.exe"

Pra fazer filtro, edição, ordenação, etc em conjunto de registros no VB 2005 você deve trabalhar com o DataTable e DataView. Abaixo segue um exemplo em C# de como criar um DataSet, um DataTable, adicionar registros e aplicar um filtro, mas lembre-se que você não precisa criar tudo na unha assim já que geralmente tudo é configurado automaticamente quando você faz uma consulta e carrega uma tabela, fiz apenas de uma forma que você possa copiar o código e executar pra ver como funfa.

// Cria um DataSet e uma tabela
DataSet dataset = new DataSet();
DataTable table = new DataTable("Sample");

table.Columns.Add(new DataColumn("column1", typeof(Int32)));
dataset.Tables.Add(table);

// Carrega alguns valores
for (int i = 0; i < 10; i++)
{
    DataRow row    = table.NewRow();
    row["column1"] = i;

    table.Rows.Add(row);
}

// Filtra valores
DataRow[] rows = table.Select("column1 <= 5");

// Exibe o resultado do Select
if (rows.Length > 0)
{
    Console.WriteLine(String.Format("Encontrados {0} registros", rows.Length));

    foreach (DataRow row in rows)
    {
        Console.WriteLine(String.Format("Valor encontrado: column1 = {0}", row["column1"].ToString()));
    }
}
else
{
    Console.WriteLine("Nenhum valor encontrado");
}
ALMIRSAFADI 23/08/2006 20:19:05
#166917
Dim Flts As Double
Dim Alts As Double

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Flts = 0
        Alts = 0

        If FecLts1TextBox.Text <> "" Then
            Flts = CDbl(FecLts1TextBox.Text)
        End If
        If AbertLts1TextBox.Text <> "" Then
            Alts = CDbl(AbertLts1TextBox.Text)
        End If
        VendaLts1TextBox.Text = Flts - Alts
        VendaLts1TextBox.Text = FormatNumber(VendaLts1TextBox.Text, 1, -2, -1, -1)
        'Até aqui tudo bem, mas como salvo este valor novo em VendaLts1TextBox
    End Sub

End Class
Tópico encerrado , respostas não são mais permitidas
Voltar