perfect design thanks capturerx ceo "I believe [breaching the debt ceiling] can be managed responsibly without creating some kind of crisis or some kind of economic calamity. Again, I just â?? I cannot emphasize enough how irresponsible I think it is that the Treasury secretary or the president of the United States is talking that way. They should be trying to calm the markets." buy alprostadil muse uk BELFAST, Northern Ireland — A U.S. diplomat has launched a new round of Northern Ireland peace talks aimed at resolving deep-seated divisions over parades and flags that triggered widespread rioting this year. viagra i njeno delovanje In Europe, hopes are high that this election will fundamentally change the situation. But more than anything the German chancellor might get an even stronger mandate to push for what’s dear to her: greater austerity; reforms in France and in Greece. will my ob prescribe clomid "Any enemy of Koch's is a friend of mine. ... [I WILL]beat the f---ing s--- out of Koch and I don't care if I go to jail. ... I'll teach him that he can't deal with a Puerto Rican that way." qfc pharmacy 145th bellevue And yet we have those terrifying pictures of whole families lying dead, no international consensus that Assad's regime must go – and no solution near to hand that could stop the killing on all sides and provide a structure in which peace could be rebuilt.

  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