|
Apprendre à insérer des valeurs à partir de Microsoft Word à une base de données Microsoft Access peut être utile lorsque vous capturez des données des utilisateurs à travers la parole . La meilleure façon d' insérer des données à partir de Word à l'accès se fait par l'utilisation de « Active Data Objects ( ADO) » dans Visual Basic pour Applications ( VBA) . VBA est un langage de programmation informatique utilisé dans les applications Microsoft Office pour écrire des programmes . ADO vous permet d'effectuer une connexion à une base de données et d'insérer des valeurs à la table et les colonnes de votre choix . Instructions
1 Lancez Microsoft Word, cliquez sur l'onglet "Developer " et cliquez sur " Visual Basic " pour lancer la fenêtre de l'éditeur VB . Cliquez sur le menu "Insertion " et cliquez sur "Module" pour insérer un nouveau module de code
2 Tapez la suivante pour créer un nouveau sous procédure : .
Private Sub insertValuesToDB ()
3 créer une variable de type de données de chaîne pour contenir les données de texte que vous souhaitez insérer :
valueRead Dim As String
4 Sélectionnez l' ligne de texte dans Word et le sauvegarder dans la chaîne de variable :
Application.Selection.Expand wdLine
valueRead = Application.Selection.Text
5 Créer l' variables objet ADODB :
adoConn As ADODB.Connection
adoCmd As ADODB.Command
6 définir le chemin et le nom de votre base de données Access . Ouvrez la connexion :
Set adoConn = New ADODB.Connection
adoConn
ConnectionString = " Provider = Microsoft.ACE.OLEDB.12.0 ; " & _ < br . > "Data Source = C: \\ Northwind 2007.accdb " .
Ouvert
End With
7 Créer une nouvelle commande pour insérer la ligne sélectionné dans Word à une table de base de données Access :
Set adoCmd = New ADODB.Command
adoCmd
ActiveConnection = adoConn
CommandText = " . . INSERT INTO ( ) VALUES (' "& ( valueRead ) &" ') "
End With
adoCmd.Execute
8 Modifier et nom de zone> et tapez votre nom de la table et le nom de domaine que vous souhaitez utiliser pour insérer les données
objets de sortie à partir de la mémoire et de fermer la connexion : . < br > adoConn.Close
Set adoConn = Nothing
9 afficher une boîte de message lorsque la valeur a été insérée à la base de données et mettre fin à la procédure :
MsgBox " la valeur a été ajouté à votre table de base de données. "
End Sub
10 Appuyez sur " F5" pour exécuter la procédure .
< br > Photos
|
