Bonjour,
Décidément le passage à SQL serveur est difficile. Je peux me connecter à une bdd ACCESS liée avec SQL serveur mais seulement avec DAO car avec ADO il n'y a pas d’option équivalente au "dbSeeChanges" de DAO (seule la lecture est ok). Il devrait pourtant y avoir une méthode pour se connecter directement à une table SQL et il devrait être possible de se connecter avec DAO qui est censé être plus efficace avec SQL serveur?
Voila mon code en vb2005:
cnString = "Provider=SQLOLEDB.1;DATA SOURCE=.\SQLEXPRESS;INITIAL CATALOG=" & bdd & ";Connect Timeout=30;User Instance=True;integrated seurity=BSTR;"
J'ai essayé pas mal de possibilité mais je bloque , même avec vb2005 je crois que c'est une question de configuration plus qu'une question de code, en tout cas je bloque vraiment donc si quelqu'un pouvait me dire ce qui deconne dans le ptit bout code ci dessous par exemple:
'connection tout ce qu'il y a de plus classique avec des commentaires quend je veux tester differents type de bdd
Dim cn As New System.Data.SqlClient.SqlConnection
Dim cmd As New System.Data.SqlClient.SqlCommand
Dim sqlR As System.Data.SqlClient.SqlDataReader
Dim bdd
bdd = "C:\data\atelier\missionsOr\conditionsReelles\sfr 2g.mdb"
'bdd = "\data\2008 - Serveur orange 1.adp"
'bdd = "C:\Program Files\Microsoft SQL Server\MSSQL.2\MSSQL\Data\2007 - Serveur orange 7SQL.mdf"
'cn.ConnectionString = "server=DNSsqlServeur\SQL Server (MSSQLSERVER);database=" & bdd & ";Persist Security Info=false;Integrated Security=SSPI;"
'cn.ConnectionString = "Data Source=" & "DNSsqlServeur\SQL Server (MSSQLSERVER)" & ";Initial Catalog=" & bdd & ";Integrated Security=SSPI; "
'cn.ConnectionString = "server=DNSsqlServeur\SQL Server (MSSQLSERVER);database='" & bdd & "'Data Source='.\SQLEXPRESS';Integrated Security='True';Connect Timeout='30';User Instance='True'"
'cn.ConnectionString = "server=.\SQLEXPRESS;AttachDbFilename=" & "'\\Pcbur0610-1\c$\data\atelier\TEST VB VBA SQL SERVEUR\manipulationSQLserveurv2CS.adp';Integrated Security=True;Connect Timeout=30;User Instance=True"
'cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & bdd ' & ";data1.options = dbSeeChanges;"
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & bdd & ";Integrated Security=True;Connect Timeout=30;User Instance=True"
'cn.DataSource = ".\SQLEXPRESS"
cn.Open()
cmd.Connection = cn
cmd.CommandText = ("SELECT * FROM configuration_active")
sqlR = cmd.ExecuteReader()
Do While sqlR.Read()
ajtxt(sqlR.GetString(0) & "; " & sqlR.GetValue(0))
Loop
sqlR.Close()
cn.Close()
Conclusion: si seulement un indice pouvait m'être présenté pour que ce passage à SQL serveur soit moins difficile...
Merci d'avance
PS: J'ai aussi laissé une source
http://www.vbfrance.com/codes/CONNECTION-BASES-DONNEES_46091.aspx
Qui permet la lecture et écriture (DAO) et E/S ADO pour des bdd ACCESS sans intérêt immédiat c'est difficile avec les bdd (souvent trop spécifique) mais pour récupérer le code ça peut être pas mal.
@+