connecter une base de donnes avec sql server 2005

Question

j'ai crée un table sous sql server 2005 et j'arrive pas à le connecter avec l'application alors voilà ce que j'ai fais;
j'ai crée un module comme ça :

Imports System.Data
Imports System.Data.SqlClient
Module Module1
    Public con As New SqlConnection
    Public da As New SqlDataAdapter
    Public mycom As New SqlCommand
    Public ds As New DataSet
    Dim cmdb As New SqlCommandBuilder

ensuite j'ai fais celà dans le form: 
Imports System.Data
Imports System.Data.SqlClient

Public Class Form4
    Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True")
    Dim da As New SqlDataAdapter
    Dim com As New SqlCommand
    Dim ds As New DataSet
    Dim comb As New SqlCommandBuilder

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim com As New SqlCommand("select *from telev", con)
        Dim da As New SqlDataAdapter(com)
        da.Fill(ds, "telev")

    End Sub


dans la bouton ajouter :


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        ds.Tables("telev").Rows.Add(Me.TextBox1.Text, Me.TextBox2.Text, Me.TextBox3.Text, Me.TextBox4.Text, Me.TextBox5.Text, Me.TextBox6.Text, Me.TextBox7.Text, Me.TextBox8.Text, Me.TextBox9.Text)
        MsgBox("ajouter")
   

    End Sub

cs_casy · Answer

Il y a beaucoup trop de déclarations.
Puisque tes variables sont déjà déclarées dans le module, tu n'as pas à les redéclarées dans la form, il te faut simplement les utiliser

Public Class Form4
[del]'Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True")
'Dim da As New SqlDataAdapter
'Dim com As New SqlCommand
'Dim ds As New DataSet
'Dim comb As New SqlCommandBuilder/del

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

[del]'Dim com As New SqlCommand("select *from telev", con)
'Dim da As New SqlDataAdapter(com)/del

con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database1.mdf;Integrated Security=True"
mycom.Connection = con
mycom.CommandType = CommandType.Text
mycom.CommandText = "select * from telev"

da.SelectCommand = mycom
da.Fill(ds, "telev")

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

ds.Tables("telev").Rows.Add(Me.TextBox1.Text, Me.TextBox2.Text, Me.TextBox3.Text, Me.TextBox4.Text, Me.TextBox5.Text, Me.TextBox6.Text, Me.TextBox7.Text, Me.TextBox8.Text, Me.TextBox9.Text)
MsgBox("ajouter")


End Sub
End Class


[i][b]---- Sevyc64  (alias Casy) ----
[hr]# LE PARTAGE EST NOTRE FORCE #/b/i

Connecter une base de donnes avec sql server 2005

1 réponse

Votre réponse

Discussions similaires