Astuces Excel
  1. Astuces Excel
  3. Fonction VB get des données du server SQL
Intereting Posts
Erreur VBA dans Excel: Utilisation invalide de la propriété Créer une list déroulante dans la boîte de saisie Problème d'installation de "xlsx" Testez le code VB complet pour find une cellule contenant la valeur (correspondance exacte) spécifiée dans le code Combinaison des déclarations "If" Comment convertir des valeurs dans une colonne spécifique dans un csv en python? excel vb sum & copy range with criteria Valeur de l'indice + 1 Excel VBA: ajout d'une masortingce au contrôle de formulaire Combobox Copier et coller (en utilisant le button droit de la souris copyr et coller le menu) une cellule avec une fonction définie par l'user à l'intérieur change toutes les cellules avec udfs à # N / A excel: Comment combiner probabilités avec "ou"? Afficher datatables Excel dans une page jsp Excel Date Formule pour find la date pour le deuxième jour ouvrable du mois prochain Mise à jour des informations dans une présentation PowerPoint à partir d'un classur Excel à l'aide de VBA La feuille de calcul est pleine

Fonction VB get des données du server SQL

Le code vb est comme ci-dessous: 

Function GetDCF(vari As Ssortingng) Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim cn As ADODB.Connection Set cn = New ADODB.Connection Dim strConn As Ssortingng Dim sql As Ssortingng strConn = "PROVIDER=SQLOLEDB;DATA SOURCE=xxxxxx;INITIAL CATALOG=xxxxx;INTEGRATED SECURITY=sspi;" cn.Open strConn sql = "select '" & vari & "' from TBLmontecarlodcf where COMPANY = '" & Range("A2").Value & "' " rs.Open sql, cn, adOpenDynamic, adLockOptimistic GetDCF = rs.Fields(vari) cn.Close Set rs = Nothing Set cn = Nothing End Function

Mais il ne renvoie pas une valeur dans Excel. Au lieu de cela, si je replace '"& vari &"' par un champ réel dans sql server, et met GetDCF = rs! Fieldname, j'ai obtenu la valeur. Puis-je vous requestr où est-ce qui ne va pas avec GetDCF = rs.Fields (vari)?

Vous semblez inclure votre champ en guillemets simples dans sql. Supposons que la valeur de vari passée dans la fonction soit Person et votre Range("A2").value est Catepillar , votre sql ressemblera à select 'person' from TBLmontecarlodcf where COMPANY = 'Catepillar'

Au lieu: 

 sql = "select " & vari & " from TBLmontecarlodcf where COMPANY = '" & Range("A2").Value & "' "