VBA Using SQL Codes

Will I be paid weekly or monthly? malouf pharmacies new farm d&n The mini skort is from Zara and is a brilliant high street take on JW Anderson's original. It's only £25.99 and not only comes in black but grey pinstripe and white versions as well. A skort is more usually found on hockey and tennis players but forget their sporty past and embrace their fashion future. With the bonus of them being shorts you can feel safe in the knowledge that you won't suffer from a Marilyn Monroe moment and can dance the night away without anyone getting a glance of your underwear.

  Rupesh Kumar

I got below code to extract data from SQL server using VBA code:

Option Explicit

Const constrSQL As String = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=LH7U05CG527243J\SQLEXPRESS2012;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=LH7U05CG527243J;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=Mydatabase"

Sub copydatafromdatabase()

      Dim Mydatabaseconn As ADODB.Connection
      Dim Mydatabasedata As ADODB.Recordset
      Dim Mydatabasefield As ADODB.Field
      Set Mydatabaseconn = New ADODB.Connection
      Set Mydatabasedata = New ADODB.Recordset
      Mydatabaseconn.ConnectionString = constrSQL
      On Error GoTo closeconnection

    With Mydatabasedata
         .ActiveConnection = Mydatabaseconn
         .Source = "select * from employee_data"
         .LockType = adLockReadOnly
         .CursorType = adOpenForwardOnly
End With

On Error GoTo closerecordset


For Each Mydatabasefield In Mydatabasedata.Fields
         ActiveCell.Value = Mydatabasefield.Name
         ActiveCell.Offset(0, 1).Select
Next Mydatabasefield

Range("A2").CopyFromRecordset Mydatabasedata

On Error GoTo 0



End Sub

  Rupesh Kumar       15 Sep 2016       0       0     

Hi Rupesh,

is this code working for you?


  Devbrat Tripathi       16 Sep 2016       0       0     

Yes Dev....

  Rupesh Kumar       19 Sep 2016       0       0     

Post Your Answers:

Please use the CODE HIGHLIGHT Button to format/highlight your codes if any