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()

Rispondi quotando