Visualizzazione dei risultati da 1 a 2 su 2
  1. #1
    Utente di HTML.it
    Registrato dal
    Nov 2008
    Messaggi
    252

    [vb2010 winform] COMPORTAMENTO STRANO

    scusate, ma mi succede una cosa strana che non capisco.

    ho aperto una connessione ad un db mdb
    ho salvato dei dati che poi visualizzo nella tabella.
    li manipolo come voglio
    salva modifica cerca ....
    e tutto funziona
    poi chiudo vb2010 vado nel db con access e vedo i dati
    quando apro di nuovo il programma i dati sono spariti
    e se vado a vedere nel db con access sono spariti anche da li!!!!

    ed in piu non riesco a controllare se un nome già esiste nel db, faccio la ricerca ma poi mi da sempre lo stesso risultato.


    ma è possibile una cosa del genere????

    codice:
    con.Close()
            con.Open()
    
            Dim Varcognome As String = TextBox2.Text
            Dim Varnome As String = TextBox1.Text
            Dim vardata As String = TextBox3.Text
    
    
            Dim rs1 = New OleDb.OleDbCommand(
             "SELECT * FROM cmplnn WHERE nome LIKE ? AND cognome LIKE ? AND data LIKE ? ", con)
            rs1.Parameters.Add("?", OleDbType.BSTR).Value = Varnome
            rs1.Parameters.Add("?", OleDbType.BSTR).Value = Varcognome
            rs1.Parameters.Add("?", OleDbType.Date).Value = vardata
    
    
            Dim da As New OleDbDataAdapter(rs1)
            da.Fill(dt)
    
    
            DataGridView1.DataSource = dt
    
    
            If dt.Rows.Count > 0 Then
                MsgBox("Hai già salvato questo evento, aggiungi un regalo in più per questa persona")
                con.Close()
                Reload("")
    
                Exit Sub
            Else
    
                rs1 = New OleDb.OleDbCommand(
                    "INSERT INTO cmplnn (id, nome, cognome, data) VALUES (?, ?, ?, ?)", con)
                rs1.Parameters.Add("?", OleDbType.Integer).Value = varid
                rs1.Parameters.Add("?", OleDbType.BSTR).Value = TextBox1.Text
                rs1.Parameters.Add("?", OleDbType.BSTR).Value = TextBox2.Text
                rs1.Parameters.Add("?", OleDbType.Date).Value = vardata
                rs1.ExecuteNonQuery()
                rs1.Dispose()
                con.Close()
            End If
            rs1.Dispose()
            con.Close()

  2. #2
    Utente di HTML.it
    Registrato dal
    Nov 2008
    Messaggi
    252
    risolto!!!!
    in realtà non c'è nessun problema dopo la pubblicazione funziona

    durante il debug ogni tanto fa capricci..

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.