پرسش ارتباط با دیتابیس sql از طریق vba

[yogishiip]

سلام
یه فایل اکسل لازم دارم که با یه دیتابیس ارتباط میگیره از طریق چند تا کوئری دیتا ها رو نشون بیاره توی اکسل و همچنین چند تا تیبل دیتابیس رو بتونه آپدیت کنه

میشه این سه تا کوئری ها رو راهنمایی کنید توی vba چطور بنویسم ؟

select * from [testdb].[dbo].[testtable] where id = 1
(نتیجه این کوئری باید توی یه تیبل داخل شیت یک نشون داده بشه )

delete * from [testdb].[dbo].[testtable] where id = 1

update [testdb].[dbo].[testtable] set Name = excel where ID = 1


ضمنا میخام اون شرط بعد از where از توی سلول a1 خونده بشه


تا اینجا فقط کانکشن برقراره و کار میکنه
ضمنا کوئری ها رو اینجوری نوشتم کار نکرد

SQLQuery = "select * from ....."

تا اینجا اینا رو نوشتم

    Dim cn_ADO As ADODB.Connection
    Dim rs_ADO As ADODB.Recordset
    Dim cmd_ADO As ADODB.Command
    
    Dim SQLUser As String
    Dim SQLPassword As String
    Dim SQLServer As String
    Dim DBName As String
    Dim DbConn As String
    
    Dim SQLQuery As String
    
    Dim strStatus As String
    Dim i As Integer
    Dim j As Integer
    Dim jOffset As Integer
    Dim iStartRow As Integer
    Dim iStep As Integer
    
    Dim strCurrentValue As String
    Dim strLastValue As String
    Dim lColorIndex As Integer
    
    iStep = 100
    jOffset = 4
    iStartRow = 8
    i = iStartRow
    
    SQLUser = "1"
    SQLPassword = "1"
    SQLServer = "127.0.0.1"
    DBName = "testdb"
    
    DbConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=" & SQLUser & ";Password=" & SQLPassword & ";Initial Catalog=" & DBName & ";" & _
            "Data Source=" & SQLServer & ";Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" & _
            "Use Encryption for Data=False;Tag with column collation when possible=False"
    
    Set cn_ADO = New ADODB.Connection
    cn_ADO.Open DbConn