ExcelからSQL Serverデータベースへの値の更新/アップロード

Question

私は最近、SQL Serverに入り、ERPシステム（JobBoss）データベースから情報をExcelに戻すためのクエリを作成しようとしました。私は不思議だった：

ExcelからSQL Serverデータベースの値を更新/変更する方法はありますか？

たとえば、SQL Serverへの接続を既に確立しており、特定のテーブルの特定の値を選択してレポートを作成するクエリがあります。しかし、私は単にExcelの値を変更して、どうにかしてデータベースと "アップロード/同期"することができるのだろうかと思いましたか？

もしそうなら、どのようなオプションがありますか？

ありがとうございます。

Answer 1

ExcelからSQL Serverに移動しますか？いくつかの選択肢があります。また

Sub Rectangle1_Click() 
'TRUSTED CONNECTION 
    On Error GoTo errH 

    Dim con As New ADODB.Connection 
    Dim rs As New ADODB.Recordset 
    Dim strPath As String 
    Dim intImportRow As Integer 
    Dim strFirstName, strLastName As String 

    Dim server, username, password, table, database As String 


    With Sheets("Sheet1") 

      server = .TextBox1.Text 
      table = .TextBox4.Text 
      database = .TextBox5.Text 


      If con.State <> 1 Then 

       con.Open "Provider=SQLOLEDB;Data Source=" & server & ";Initial Catalog=" & database & ";Integrated Security=SSPI;" 
       'con.Open 

      End If 
      'this is the TRUSTED connection string 

      Set rs.ActiveConnection = con 

      'delete all records first if checkbox checked 
      If .CheckBox1 Then 
       con.Execute "delete from tbl_demo" 
      End If 

      'set first row with records to import 
      'you could also just loop thru a range if you want. 
      intImportRow = 10 

      Do Until .Cells(intImportRow, 1) = "" 
       strFirstName = .Cells(intImportRow, 1) 
       strLastName = .Cells(intImportRow, 2) 

       'insert row into database 
       con.Execute "insert into tbl_demo (firstname, lastname) values ('" & strFirstName & "', '" & strLastName & "')" 

       intImportRow = intImportRow + 1 
      Loop 

      MsgBox "Done importing", vbInformation 

      con.Close 
      Set con = Nothing 

    End With 

Exit Sub 

errH: 
    MsgBox Err.Description 
End Sub 

、このオプションを検討してください：

セットアップは、このリンクを探します。

Sub UpdateTable() 

    Dim cnn As Object 
    Dim wbkOpen As Workbook 
    Dim objfl As Variant 
    Dim rngName As Range 
    Workbooks.Open "C:\Users\Excel\Desktop\Excel_to_SQL_Server.xls" 
    Set wbkOpen = ActiveWorkbook 
    Sheets("Sheet1").Select 
    Set rngName = Range(Range("A1"), Range("A1").End(xlToLeft).End(xlDown)) 
    rngName.Name = "TempRange" 
    strFileName = wbkOpen.FullName 
    Set cnn = CreateObject("ADODB.Connection") 
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFileName & ";Extended Properties=""Excel 12.0 Xml;HDR=Yes"";" 
    nSQL = "INSERT INTO [odbc;Driver={SQL Server};Server=Excel-PC\SQLEXPRESS;Database=[Northwind].[dbo].[TBL]]" 
    nJOIN = " SELECT * from [TempRange]" 
    cnn.Execute nSQL & nJOIN 
    MsgBox "Uploaded Successfully" 
    wbkOpen.Close 
    Set wbkOpen = Nothing 

End Sub 

Sub InsertInto() 

'Declare some variables 
Dim cnn As adodb.Connection 
Dim cmd As adodb.Command 
Dim strSQL As String 

'Create a new Connection object 
Set cnn = New adodb.Connection 

'Set the connection string 
cnn.ConnectionString = "Excel-PC\SQLEXPRESS;Database=Northwind;Trusted_Connection=True;" 

'Create a new Command object 
Set cmd = New adodb.Command 

'Open the connection 
cnn.Open 
'Associate the command with the connection 
cmd.ActiveConnection = cnn 

'Tell the Command we are giving it a bit of SQL to run, not a stored procedure 
cmd.CommandType = adCmdText 

'Create the SQL 
strSQL = "UPDATE TBL SET JOIN_DT = 2013-01-13 WHERE EMPID = 2" 

'Pass the SQL to the Command object 
cmd.CommandText = strSQL 

'Open the Connection to the database 
cnn.Open 

'Execute the bit of SQL to update the database 
cmd.Execute 

'Close the connection again 
cnn.Close 

'Remove the objects 
Set cmd = Nothing 
Set cnn = Nothing 

End Sub 

これを行う方法の追加のアイデアについては、下のリンクを参照してください。

https://www.excel-sql-server.com/excel-sql-server-import-export-using-vba.htm#Introduction