mode deconnectee

Question

slt,

je commence de faire une petite application en vb.net avec database sql server 2008 tous marche bien de debut mais ,quand la programe agrandi j'ai trouve bcp de probleme au niveau de ajout et mise ajour et aussi supprime de de database :cad lorsque je clic sur un ligne de datagridview pour le modifier ou click sur button pour ajout un neauvau rien change dans le datagridview ,mais quand je ferme l'application et j'ai l'ouvre autre fois j'ai tous ma operation (ajout ,modification ,supprime,) en plus je suis deja travail en mode deconnecte ,donc apres chaque operation je teste mon dataset avec (if ds.haschange() ) then

Me.Validate()

 

 

 

 

 

Me.BindingContext(ds, "TblAufgaben").EndCurrentEdit()

da.Update(ds,

 

"TblAufgaben")

FRMHauptmenue.TblAufgabenDataGridView1.Refresh()

 

 

End If

svp j'ai besion d`un aide j'ai cherche pas mal de fois mais j'arrive pas d'une solution ,merci d'avance..

Answer 1

Bonjour,

Pouvez-vous relire et nous expliquer clairement votre problème ? Comment ajoutez-vous une ligne dans votre DataGridView ?

Cordialement

---

Gilles TOURREAU - MVP C# - MCP - Architecte .NET/Consultant/Formateur - http://gilles.tourreau.fr

Answer 2

bonjour,

merci de votre interrse,ma methode pour l'ajout ,cet apartir ma formulaire apres un click addnew qui est un button dans la FormDGV,donc j'ai 2 form (frmSaisie,frmdgv)

 Dim sql As String = "select * from TblBankst"
    Dim Conn As New SqlConnection(ConnectionString)
    Dim da As New SqlDataAdapter(sql, Conn)
    Dim ds As New DataSet
    ds.Clear()
    da.Fill(ds, "TblBankst")
    Dim dr As DataRow = ds.Tables("TblBankst").NewRow
    dr.Item("BankID") = Me.BankIDTextBox.Text

    dr.Item("Bankname") = Me.BanknameTextBox.Text


    dr.Item("Straße") = Me.StraßeTextBox.Text
    dr.Item("Land") = Me.LandTextBox.Text
    dr.Item("PLZ") = Me.PLZTextBox.Text
    dr.Item("Ort") = Me.OrtTextBox.Text

    dr.Item("Telefon") = Me.TelefonTextBox.Text

    dr.Item("Telefax") = Me.TelefaxTextBox.Text
    dr.Item("Email") = Me.EmailTextBox.Text



    ds.Tables("TblBankst").Rows.Add(dr)

    Dim sqlInsert As String = "insert into TblBankst (BankID,Bankname,Straße,Land,PLZ,Ort,Telefon,Telefax,Email) " & "values (@BankID,@Bankname,@Straße,@Land,@PLZ,@Ort,@Telefon,@Telefax,@Email)"
    Dim Insert As New SqlCommand
    Insert.Connection = Conn
    Insert.CommandText = sqlInsert
    Insert.CommandType = CommandType.Text
    Insert.Parameters.AddWithValue("@BankID", Me.BankIDTextBox.Text)

    Insert.Parameters.AddWithValue("@Bankname", Me.BanknameTextBox.Text)



    Insert.Parameters.AddWithValue("@Straße", Me.StraßeTextBox.Text)
    Insert.Parameters.AddWithValue("@Land", Me.LandTextBox.Text)
    Insert.Parameters.AddWithValue("@PLZ", Me.PLZTextBox.Text)
    Insert.Parameters.AddWithValue("@Ort", Me.OrtTextBox.Text)

    Insert.Parameters.AddWithValue("@Telefon", Me.TelefonTextBox.Text)

    Insert.Parameters.AddWithValue("@Telefax", Me.TelefaxTextBox.Text)
    Insert.Parameters.AddWithValue("@Email", Me.EmailTextBox.Text)






    da.InsertCommand = Insert
    Me.BindingContext(ds, "TblBankst").EndCurrentEdit()
    da.Update(ds, "TblBankst")
EndSub

cet sa ma methode D'ajout ,il fonction tres bien mais je peut pas voir mon ajout  tous direct quand j'ai affiche la formdgrv ,donc je besion de ferme l'application pour voir mon ajout sur le dgv, je spere que je explique ma probleme bien ,j'attend un aide svp

merci d'avance

Answer 3

bonjour,

merci de votre interrse,ma methode pour l'ajout ,cet apartir ma formulaire apres un click addnew qui est un button dans la FormDGV,donc j'ai 2 form (frmSaisie,frmdgv)

la probleme ce q'aand j'ajout de donnee au database normallment j'ai un datagridview qui affiche mes donnee mais rien affiche toua direct ,et quand je ferme mon application je trouve tou mon la nouvel data qui j'ajout .svp aidez moi

 Dim sql As String = "select * from TblBankst"
  Dim Conn As New SqlConnection(ConnectionString)
  Dim da As New SqlDataAdapter(sql, Conn)
  Dim ds As New DataSet
  ds.Clear()
  da.Fill(ds, "TblBankst")
  Dim dr As DataRow = ds.Tables("TblBankst").NewRow
  dr.Item("BankID") = Me.BankIDTextBox.Text

  dr.Item("Bankname") = Me.BanknameTextBox.Text


  dr.Item("Straße") = Me.StraßeTextBox.Text
  dr.Item("Land") = Me.LandTextBox.Text
  dr.Item("PLZ") = Me.PLZTextBox.Text
  dr.Item("Ort") = Me.OrtTextBox.Text

  dr.Item("Telefon") = Me.TelefonTextBox.Text

  dr.Item("Telefax") = Me.TelefaxTextBox.Text
  dr.Item("Email") = Me.EmailTextBox.Text



  ds.Tables("TblBankst").Rows.Add(dr)

  Dim sqlInsert As String = "insert into TblBankst (BankID,Bankname,Straße,Land,PLZ,Ort,Telefon,Telefax,Email) " & "values (@BankID,@Bankname,@Straße,@Land,@PLZ,@Ort,@Telefon,@Telefax,@Email)"
  Dim Insert As New SqlCommand
  Insert.Connection = Conn
  Insert.CommandText = sqlInsert
  Insert.CommandType = CommandType.Text
  Insert.Parameters.AddWithValue("@BankID", Me.BankIDTextBox.Text)

  Insert.Parameters.AddWithValue("@Bankname", Me.BanknameTextBox.Text)



  Insert.Parameters.AddWithValue("@Straße", Me.StraßeTextBox.Text)
  Insert.Parameters.AddWithValue("@Land", Me.LandTextBox.Text)
  Insert.Parameters.AddWithValue("@PLZ", Me.PLZTextBox.Text)
  Insert.Parameters.AddWithValue("@Ort", Me.OrtTextBox.Text)

  Insert.Parameters.AddWithValue("@Telefon", Me.TelefonTextBox.Text)

  Insert.Parameters.AddWithValue("@Telefax", Me.TelefaxTextBox.Text)
  Insert.Parameters.AddWithValue("@Email", Me.EmailTextBox.Text)






  da.InsertCommand = Insert
  Me.BindingContext(ds, "TblBankst").EndCurrentEdit()
  da.Update(ds, "TblBankst")
EndSub

cet sa ma methode D'ajout ,il fonction tres bien mais je peut pas voir mon ajout  tous direct quand j'ai affiche la formdgrv ,donc je besion de ferme l'application pour voir mon ajout sur le dgv, je spere que je explique ma probleme bien ,j'attend un aide svp

merci d'avance

Answer 4

Bonjour,

 

Ajoutez l’instruction

da.Fill(ds.TblBankst)

 

Cordialement,

Alex

__________________________________________________________________________________________

Publiez un article sur une de ces technologies : Visual Basic, C#, C++, .NET, ASP.NET, SQL Server, Silverlight, SharePoint 2010, SharePoint 2007

 

Astuces pour Visual Studio 2010

Didacticiels et astuces : VB.NET, C#, ASP.NET, .NET Framework, Workflow Foundation

 

 

Answer 5

merci de votre reponse

mais j'ai ajout cet instriction

Conn.Open()

ds.Clear()

da.Fill(ds,

 

"TblBankst")

TblBankstDataGridView1.DataSource = ds

TblBankstDataGridView1.DataMember =

 

"TblBankst"

TblBankstDataGridView1.Refresh()

Conn.Close()

sa fonctionnne mais il fais me retourne tous ce qui j'ai au data base par contre j'ai besion juste la numero de klient qui est deja secetionnee en combobox svp comment j'ai fais

merci de votre aide

 

Answer 6

Bonjour,

 

Vous devez changer votre SelectCommand en ajoutant un paramètre :

SqlParameter p1 = new SqlParameter("p1", SqlDbType.NVarChar, 20) ; 
p1.Value = ComboBox1.Text; 
da.SelectCommand.Parameters.Add(p1); 
da.SelectCommand.CommandText = “select * from MaTable where ID=@p1”; 

 

 

Cordialement,

Alex

__________________________________________________________________________________________

Publiez un article sur une de ces technologies : Visual Basic, C#, C++, .NET, ASP.NET, SQL Server, Silverlight, SharePoint 2010, SharePoint 2007

 

Astuces pour Visual Studio 2010

Didacticiels et astuces : VB.NET, C#, ASP.NET, .NET Framework, Workflow Foundation