Connection avec une base SQL server

Question

Bonjour je développe une application qui devra se connecter à une base sql server. j'aimerais savoir comment faire pour se connecter.

Merci
wico2002

BruNews · Answer

Va voir dans les sources en faisant une recherche sur 'ADO'.
ciao...
BruNews, Admin CS, MVP Visual C++

titom59 · Answer

tu peux utiliser un odbc (driver dejà instalé sur windows pour sqlserver ), l'avantage c'est que si tu changes de type de base de donnée, ou si ta base de donnée est distante tu n'as qu'une ligne à changer 

la variable cstrconnecitonstring = 

PROVIDER=SQLOLEDB.1;PASSWORD=demo;USER ID=demo;INITIAL CATALOG=netMailing;DATA SOURCE=monserver

voici un bout de code

Private Sub Form_Load()
    '********************************
    Dim conADO      As ADODB.Connection
    Dim cmdADO      As ADODB.Command
    Dim rstADO      As ADODB.Recordset
    
    Dim objListItem As ListItem
    
    Dim strSQL      As String
    Dim strStep As String
    '********************************
    On Error GoTo errorHandler
    
    strStep = "BEGIN Form_Load"
    
    '** Open connection
    Set conADO = New ADODB.Connection
    conADO.ConnectionString = cstrConnectionString
    conADO.Open
    
    '** Is this line already present in sent
    Set rstADO = New ADODB.Recordset
    strSQL = "SELECT * FROM tosenderror " & _
            " ORDER BY sendid,id;"
            
    strStep = "Before Call SQL : " & strSQL
    
    rstADO.Open strSQL, conADO
    
    rstADO.MoveFirst
    While Not rstADO.EOF
        Set objListItem = frmError.ListView1.ListItems.Add(, , rstADO.Fields("senddate").Value)
        Call objListItem.ListSubItems.Add(, , rstADO.Fields("sendfrom").Value)
        Call objListItem.ListSubItems.Add(, , rstADO.Fields("sendreply").Value)
        Call objListItem.ListSubItems.Add(, , rstADO.Fields("sendsubject").Value)
        Call objListItem.ListSubItems.Add(, , rstADO.Fields("sendprio").Value)
        Call objListItem.ListSubItems.Add(, , rstADO.Fields("sendto").Value)
        Call objListItem.ListSubItems.Add(, , rstADO.Fields("who").Value)
        Call objListItem.ListSubItems.Add(, , rstADO.Fields("sendcc").Value)
        Call objListItem.ListSubItems.Add(, , rstADO.Fields("sendbcc").Value)
        Call objListItem.ListSubItems.Add(, , rstADO.Fields("htmlbody").Value)
        Call objListItem.ListSubItems.Add(, , rstADO.Fields("textbody").Value)
        Call objListItem.ListSubItems.Add(, , rstADO.Fields("Id").Value)
        Call objListItem.ListSubItems.Add(, , rstADO.Fields("SendId").Value)
        Call objListItem.ListSubItems.Add(, , rstADO.Fields("newsid").Value)
        Set objListItem = Nothing
        rstADO.MoveNext
    Wend
    
    rstADO.Close
    
    Set rstADO = Nothing
    
    strStep = "END Form_Load"
    
    Exit Sub

errorHandler:
    
    Set cmdADO = Nothing
    
    Call ErrorHandling(Err.Number, Err.Source, Err.Description, strStep)

End Sub

@+

Connection avec une base SQL server

2 réponses

Discussions similaires