VB.NET

Fermé
joujouth Messages postés 24 Date d'inscription lundi 15 mars 2010 Statut Membre Dernière intervention 5 octobre 2012 - 8 mai 2010 à 13:13
SVP g besoin d'aide je suis entrain de realiser un site web avc vb.net 2005 et je n'arrive pas a connecter à une base de donnée voila mon code
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Imports System.Data.Sql
Imports System.IO
Imports System.ArgumentException

<WebService(Namespace:="https://www.bing.com/?toHttps=1&redig=E2A68CC53634401DA4F71B1599B6E7DE")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class Service
Inherits System.Web.Services.WebService


Dim connexion As New SqlConnection
<WebMethod()> _
Public Sub connection()

connexion.ConnectionString = "Data Source=localhost;Initial rdv=base;Integrated Security=True"
connexion.Open()
If connexion.State = ConnectionState.Open Then
MsgBox("Connexion reussite", MsgBoxStyle.Exclamation, "Status")
Else
MsgBox("Connexion non reussite", MsgBoxStyle.Critical, "Status")
End If
connexion.Close()
End Sub
<WebMethod()> _
Public Function Ajouterpatient(ByVal cin As Integer, ByVal nom As String, ByVal prenom As String, ByVal nais As Date, ByVal mail As String, ByVal tel As Integer) As String

connection()
Dim strRequete As String = "SELECT * FROM patient "
Dim dtt As DataTable
Dim oSqlDataAdapter As New SqlDataAdapter(strRequete, connexion)
Dim oDataSet As New DataSet("pation")
oSqlDataAdapter.Fill(oDataSet, "patient")
dtt = oDataSet.Tables("patient")

oSqlDataAdapter.InsertCommand = New SqlCommand("INSERT INTO patient(CIN,nom_p,prenom_p,datedenais,mail,tel) Values(@CIN,@nom_p,@prenom_p,@datedenais,@mail,@tel)", connexion)
oSqlDataAdapter.InsertCommand.Parameters.Add("@CIN", SqlDbType.Int, 30, cin)
oSqlDataAdapter.InsertCommand.Parameters.Add("@nom_p", SqlDbType.NChar, 15, nom)
oSqlDataAdapter.InsertCommand.Parameters.Add("@prenom_p", SqlDbType.NChar, 100, prenom)
oSqlDataAdapter.InsertCommand.Parameters.Add("@datedenais", SqlDbType.Date, 100, nais)
oSqlDataAdapter.InsertCommand.Parameters.Add("@mail", SqlDbType.NChar, 100, mail)
oSqlDataAdapter.InsertCommand.Parameters.Add("@tel", SqlDbType.Int, 100, tel)

Dim oDataRow As DataRow
Dim byteArray As Byte() = {}


'''''''''''''''''''test des champs saisies''''''''''''''''

'''''''''''''''''''fin test champs''''''''''''''''''''''''
oDataRow = oDataSet.Tables("patient").NewRow()
oDataRow("CIN") = cin
oDataRow("nom_p") = nom
oDataRow("prenom_p") = prenom
oDataRow("datedenais") = nais
oDataRow("mail") = mail
oDataRow("tel") = tel



oDataSet.Tables("patient").Rows.Add(oDataRow)
oSqlDataAdapter.Update(oDataSet, "patient")

oSqlDataAdapter.Fill(oDataSet, "patient")
dtt = oDataSet.Tables("patient")
Dim m As String
m = "patient enregistré avec succés"
Return m
connexion.Close()

End Function

End Class


il m'affiche ce résultat

System.ArgumentException: Mot clé non pris en charge : 'initial rdv'.
à System.Data.Common.DbConnectionOptions.ParseInternal(Hashtable parsetable, String connectionString, Boolean buildChain, Hashtable synonyms, Boolean firstKey)
à System.Data.Common.DbConnectionOptions..ctor(String connectionString, Hashtable synonyms, Boolean useOdbcRules)
à System.Data.SqlClient.SqlConnectionString..ctor(String connectionString)
à System.Data.SqlClient.SqlConnectionFactory.CreateConnectionOptions(String connectionString, DbConnectionOptions previous)
à System.Data.ProviderBase.DbConnectionFactory.GetConnectionPoolGroup(String connectionString, DbConnectionPoolGroupOptions poolOptions, DbConnectionOptions& userConnectionOptions)
à System.Data.SqlClient.SqlConnection.ConnectionString_Set(String value)
à System.Data.SqlClient.SqlConnection.set_ConnectionString(String value)
à Service.connection() dans C:\Users\JIHENE\Documents\Visual Studio 2005\WebSites\WebSite6\App_Code\Service.vb:ligne 26
à Service.Ajouterpatient(Int32 cin, String nom, String prenom, DateTime nais, String mail, Int32 tel) dans C:\Users\JIHENE\Documents\Visual Studio 2005\WebSites\WebSite6\App_Code\Service.vb:ligne 38