CONNECTION SOURCE SQL SERVER
acidburn23
Messages postés
9
Date d'inscription
vendredi 3 mai 2002
Statut
Membre
Dernière intervention
29 mai 2002
-
29 mai 2002 à 11:49
assouma488 Messages postés 4 Date d'inscription samedi 6 février 2010 Statut Membre Dernière intervention 7 décembre 2010 - 29 mars 2010 à 20:51
assouma488 Messages postés 4 Date d'inscription samedi 6 février 2010 Statut Membre Dernière intervention 7 décembre 2010 - 29 mars 2010 à 20:51
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2751-connection-source-sql-server
https://codes-sources.commentcamarche.net/source/2751-connection-source-sql-server
29 mars 2010 à 20:51
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public UserName As String
Public PROV As String
Public Password As String
Public ServerName As String
Public DBName As String
'Public TypUser As String
'Public DtDeb, DtFin As Date
'Public fMainForm As furmMain
Private Declare Function SQLDataSources Lib "ODBC32.DLL" (ByVal henv&, ByVal fDirection%, ByVal szDSN$, ByVal cbDSNMax%, pcbDSN%, ByVal szDescription$, ByVal cbDescriptionMax%, pcbDescription%) As Integer
Private Declare Function SQLAllocEnv% Lib "ODBC32.DLL" (env&)
Sub Main()
Data Source = DELL
initial catalog = culture
'persist security info=True
'user id=ID
workstation id = DELL \ BMB
packet Size = 4096
'Password = Password
Provider = MSSQLServer
'dsn = w2000pro
'uid = administrateur
'pwd = naza
Database = "culture"
UserName = "DELL \ BMB"
'Password = "naza"
ServerName = "DELL"
PROV = "MSSQLServer"
i = SQLAllocEnv(lHenv)
'Dim strServerName As String
'strServerName = MsChatPr1.ServerName
DBName = "culure"
'Set connection properties.
db.ConnectionTimeout = 25 ' Set the time out.
db.Provider = PROV ' Specify the OLE DB provider.
db.Properties("Data Source").Value = ServerName ' Set SQLOLEDB connection properties.
db.Properties("Initial Catalog").Value = DBName ' Set SQLOLEDB connection properties.
db.Properties("Integrated Security").Value = "SSPI" ' Set SQLOLEDB connection properties.
'db.Open "PROVIDER=sqloledb;dsn=w2000pro;uid=administrateur;database=burordre;"
db.Open
db.CursorLocation = adUseClient
Dim flogin As New frmLogin
flogin.Show vbModal
If Not flogin.OK Then
'L'ouverture de session a échoué. Application terminée
End
End If
Unload flogin
frmSplash.Show
frmSplash.Refresh
Set fMainForm = New frmMain
Load fMainForm
Unload frmSplash
fMainForm.Show
End Sub
Sub LoadResStrings(frm As Form)
On Error Resume Next
Dim ctl As Control
Dim obj As Object
Dim fnt As Object
Dim sCtlType As String
Dim nVal As Integer
'Définit la légende de la feuille
frm.Caption = LoadResString(CInt(frm.Tag))
'Définit la police
Set fnt = frm.Font
fnt.Name = LoadResString(20)
fnt.Size = CInt(LoadResString(21))
'Définit les légendes des contrôles en utilisant la
'propriété caption pour les éléments de menu et la propriété Tag
' pour tous les autres contrôles
For Each ctl In frm.Controls
' Set ctl.Font = fnt
sCtlType = TypeName(ctl)
If sCtlType = "Label" Then
ctl.Caption = LoadResString(CInt(ctl.Tag))
ElseIf sCtlType = "Menu" Then
ctl.Caption = LoadResString(CInt(ctl.Caption))
ElseIf sCtlType = "TabStrip" Then
For Each obj In ctl.Tabs
obj.Caption = LoadResString(CInt(obj.Tag))
obj.ToolTipText = LoadResString(CInt(obj.ToolTipText))
Next
ElseIf sCtlType = "Toolbar" Then
For Each obj In ctl.Buttons
obj.ToolTipText = LoadResString(CInt(obj.ToolTipText))
Next
ElseIf sCtlType = "ListView" Then
For Each obj In ctl.ColumnHeaders
obj.Text = LoadResString(CInt(obj.Tag))
Next
Else
nVal = 0
nVal = Val(ctl.Tag)
If nVal > 0 Then ctl.Caption = LoadResString(nVal)
nVal = 0
nVal = Val(ctl.ToolTipText)
If nVal > 0 Then ctl.ToolTipText = LoadResString(nVal)
End If
Next
End Sub
29 mars 2010 à 20:50
7 janv. 2010 à 20:00
11 août 2008 à 10:25
Ai je besoin d'installer SQL Native Client sur le poste
Merci
4 mai 2008 à 13:21
dim gOcnx As New ADODB.Connection
gOcnx=ConnectString = "Provider=SQLNCLI.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=API;Data Source=boutresse\sqlexpress"
ou catalog est le nom de la base chez moi API
Data source est le nom du serveur sql chez moi Data Source=boutresse\sqlexpress"
Le mieux est de creér fichier texte sur le bureau, le renommer en .udl puis ensuite en double cliquant établir la connection sur le serveur SQL ensuite ouvrir le fichier UDL avec notepad et récupérer la chaine de connection.
4 mai 2008 à 12:55
4 sept. 2007 à 16:39
3 juin 2007 à 18:23
31 mai 2007 à 10:57
merci pour cet exemple sur lequel je suis tombé en cherchant de l'aide, mais malheureusement c'est pareil avec votre code...
Lecture de données dans la base : tout fonctionne bien !
tentative d'ecriture (modification ou addnew) : "Erreur 3251 : le jeu d'enregistrements suivant ne prends pas en charge la mise à jour. Il s'agit peut-être d'une limitation du fournisseur ou du type de verrou sélectionné"
Cela fait 2 jours que je butte sur ce problème !! une idée ?
Merci d'avance.
Franck
4 mars 2007 à 22:57
et aussi ou ce trouve le menu
et le generateur dataset
22 janv. 2007 à 22:25
6 mai 2005 à 09:04
Je ne comprends pas trop la demande, essayez de préciser votre demande.
@+
12 oct. 2002 à 11:06
1 juin 2002 à 16:31
Cela suppose que le serveur SQL p_strServer existe (c'est le nom du serveur SQL)
que database existe (c'est le nom de la database
S'il n'y a pas de server SqlServer il est normal que cela plante.
uid peut etre sa (utilisateur)
pwd vide (mot de passe)
29 mai 2002 à 11:49
Aurais tu une reponse? Merci