joujouth
Messages postés24Date d'inscriptionlundi 15 mars 2010StatutMembreDerniè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.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