25/06/10 4:54
trattobasso
ciao a tutti e portate pazienza se magari avete già postato qualcolsa di simile ma visto l'orario tardo (o molto presto) l'occhio mi si chiude...
dunque,tramite questo codice leggo un db access
Parallelamente alla fase di lettura c'è anche la fase di insemiento dell'anagrafica:
Quello che proprio non riesco a capire come fare è, una volta selezionato dal datagridview un nominativo, come faccio a vederne i dati spalmati sulle varie textbox?
Mi sono proprio inguaiato....
dunque,tramite questo codice leggo un db access
Public Class Form_cerca_cliente
Dim con As OleDbConnection
Dim dAdapt As OleDbDataAdapter
Dim dSet As DataSet
Dim a As Integer = 0
Dim dBind As New BindingSource
Private Sub Md_Settings()
Try
con = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Application.StartupPath & "\dati.mdb")
con.Open()
dAdapt = New Data.OleDb.OleDbDataAdapter("select * from Clienti", con)
dSet = New DataSet
dAdapt.Fill(dSet)
dBind.DataSource = dSet
dBind.DataMember = dSet.Tables(0).ToString()
DataGridView1.DataSource = dBind
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
Parallelamente alla fase di lettura c'è anche la fase di insemiento dell'anagrafica:
Private Sub btn_inserisci_cliente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_inserisci_cliente.Click
Try
Sql = "Insert into clienti (RagioneSociale, Indirizzo, Provincia, Sigla, Comune, Cap, Nazione, PartitaIVA, CodiceFiscale, Settore, Cognome, Nome, DataDiNascita, Sesso, ProviciaReferente, LuogoDiNascita, CodiceFiscaleReferente, Telefono, Fax, Email, indirizzoInternet) Values ("
Sql = Sql & "'" & txt_ragione_sociale.Text.Trim & "','" & txt_indirizzo.Text.Trim & "','" & txt_provincia.Text.Trim & "','" & txt_sigla.Text.Trim & "','" & cmb_comuni.Text.Trim & "','" & txt_cap.Text.Trim & "','" & txt_nazione.Text.Trim & "','" & txt_partita_iva.Text.Trim & "','" & txt_codice_fiscale.Text.Trim & "','" & txt_settore_operativo.Text.Trim & "','" & txt_cognome.Text.Trim & "','" & txt_nome.Text.Trim & "','" & txt_data_di_nascita.Text.Trim & "','" & cmb_sesso.Text.Trim & "','" & txt_provincia_referente.Text.Trim & "','" & txt_luogo_di_nascita.Text.Trim & "','" & txt_codice_fiscale.Text.Trim & "','" & txt_telefono.Text.Trim & "','" & txt_fax.Text.Trim & "','" & txt_email.Text.Trim & "','" & txt_indirizzo_internet.Text.Trim & "')"
If CN.State = ConnectionState.Closed Then
CN.Open()
End If
Dim CM As New OleDbCommand(Sql, CN) 'oggetto che permette l'esecuzione della query
CM.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Errore")
Exit Sub
End Try
MsgBox("Nuovo cliente salvato correttamente.", MsgBoxStyle.Information, "Easy Gest")
CN.Close()
End Sub
Quello che proprio non riesco a capire come fare è, una volta selezionato dal datagridview un nominativo, come faccio a vederne i dati spalmati sulle varie textbox?
Mi sono proprio inguaiato....
Ultima modifica effettuata da Il Totem 26/06/10 11:03
aaa
