Import From SQL

DESCRIPTION:
This macro imports stock daily data: FINRA Reg SHO Daily Files(FINRA/NASDAQ TRF Carteret) from SQL server. http://regsho.finra.org/regsho-Index.html

Import From SQL

Sub ImportFromSQLServer()
'Import from SQL Server
	Dim conn As ADODB.Connection
	Dim rs As ADODB.Recordset
	Dim sConnString As String
	'Create the connection String
	'============================ 
	sConnString = "Provider = SQLOLEDB;Data Source = DESKTOP - TG65LTOSQL2014; _
	               initial Catalog = MyDbase; Integrated Security = SSPI;"
	'Create the Connection And Recordset objects
	'============================================ 
	Set conn = New ADODB.Connection
	Set rs   = New ADODB.Recordset
	'Open the connection And execute
	'=============================== 
	conn.Open sConnString
	Set rs = conn.Execute(Select * FROM finra;)
	'Check we have data then export
    '============================== 
	If Not rs.EOF Then
		Sheets(1).Range(A1).CopyFromRecordset rs
		rs.Close
	Else
		MsgBox "Error: No records returned.", vbCritical
	End If
	'Clean up
	'========
	If CBool(conn.State And adStateOpen) Then conn.Close
	Set conn = Nothing
	Set rs = Nothing
	MsgBox "Completed", vbCritical
	End Sub

Sub ImportFromSQLServer()

'Import from SQL Server

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Dim sConnString As String

'Create the connection String

'============================

sConnString = "Provider = SQLOLEDB;Data Source = DESKTOP - TG65LTOSQL2014; _

initial Catalog = MyDbase; Integrated Security = SSPI;"

'Create the Connection And Recordset objects

'============================================

Set conn = New ADODB.Connection

Set rs = New ADODB.Recordset

'Open the connection And execute

'===============================

conn.Open sConnString

Set rs = conn.Execute(Select * FROM finra;)

'Check we have data then export

'==============================

If Not rs.EOF Then

Sheets(1).Range(A1).CopyFromRecordset rs

rs.Close

Else

MsgBox "Error: No records returned.", vbCritical

End If

'Clean up

'========

If CBool(conn.State And adStateOpen) Then conn.Close

Set conn = Nothing

Set rs = Nothing

MsgBox "Completed", vbCritical

End Sub

Import from SQL server.xlsm

1 file(s) 334.98 KB

Please login to download

Ratings: 1 Star 2 Stars 3 Stars 4 Stars 5 Stars (No Ratings Yet)
Loading...

Tags: Last column, Last row

YYkol.com

Import From SQL Server

Import From SQL

Import From SQL

Import from SQL server.xlsm

Leave a Reply