Solved

How read text files with tab separate and insert into sqlserver from vba

Posted on 2015-02-14
5
58 Views
Last Modified: 2016-02-10
????


============ edited by aikimark
0
Comment
Question by:AletsPalas
  • 2
5 Comments
 
LVL 30

Expert Comment

by:hnasr
ID: 40610583
That's right! More description is required to limit our assumptions. What is your programming environment?
Include a demo text file and and the expected output in sql server.
0
 
LVL 32

Accepted Solution

by:
Robberbaron (robr) earned 500 total points
ID: 40610677
ive done something similar before that may help though it doesn't have much doco

'Needs reference to FileSystemObject, ADODB

and all the database details have been changed to protect the guilty....

 
Option Explicit
Dim strScriptName 
Dim strScriptDir
Dim strXlsName
Dim strRemoveName




'Needs reference to FileSystemObject, ADODB
dim  arc_list ="myfile.txt"	

	Dim objFSO: Set objFSO = CreateObject("Scripting.FileSystemObject")
	
	if not objFSO.FileExists(arc_list) Then
		Wscript.Echo "Input file not found"
		Wscript.Quit
	end if
	
	Dim objFile: Set objFile = objFSO.OpenTextFile(arc_list)
	
	Dim RawString, arclistdata
	
	Do While Not objFile.AtEndofStream
	  'On Error Resume Next
	  RawString = objFile.ReadLine
	  
	  
	  'split at TAB characters
	  arclistdata = split(RawString,vbTab)
	  if ubound(arclistdata)<>6 then
		  'bad data line

		elseif NOT isnumeric(left(arclistdata(0),5)) or NOT isnumeric(arclistdata(1)) then


		else
		  'proceed with archive

		  if cmdrun then wscript.echo "Archive ==" & arclistdata(0) & "==" & arclistdata(1) & "=="
		  ok = ArchiveX ( arclistdata)

		  
	  end if
		  
	Loop
	
	objFile.Close
	


Wscript.Echo "--done--"

wscript.quit


Function ArchiveX ( TabList )
    'open connection

	dim SQLquery , recA
	dim UpdateOK
	dim AdminArchivedSwitch , DesignArchivedSwitch
	dim AdminNo , DesignNo
	
	dim InfoBase_DataConnection
	dim Infobase_dataconnection_ConnectionString,	Infobase_dataconnection_ConnectionTimeout 
	dim Infobase_dataconnection_CommandTimeout ,	Infobase_dataconnection_CursorLocation 
	dim Infobase_dataconnection_RuntimeUserName ,	Infobase_dataconnection_RuntimePassword 
	
	InfobaseArchive = false    'set default return
	UpdateOK=TRUE
	AdminArchivedSwitch=1
	DesignArchivedSwitch=1
	AdminNo = ArchiveNum
	DesignNo="ARC_DRV"

'--------from Infobase Global.ASA
	Infobase_dataconnection_ConnectionString =  "DRIVER=SQL Server;SERVER=BWSQL;APP=Arc_job;WSID=SQLSERVER;DATABASE=Test123;AnsiNPW=No;"
	Infobase_dataconnection_ConnectionTimeout = 15
	Infobase_dataconnection_CommandTimeout = 30
	Infobase_dataconnection_CursorLocation = 3
	Infobase_dataconnection_RuntimeUserName = "qwerty"
	Infobase_dataconnection_RuntimePassword = "qaz"
		
	'update the project archive details
	'v4.1  update all master and suffix projects with same data.
	SQLquery="UPDATE Project_Archiving SET " &_
			"AdminArchived=" & TabList(0) & ", " &_
			"AdminArchiveNo='" & TabList(1) & "', " &_
			"DesignArchived=" & TabList(2) & ", " &_
			"DesignArchiveNo='" & TabList(3) & "', " &_
			"ShedStorageNo='----' " &_
			"WHERE ProjectNo LIKE '" & TabList(6) & "%';"  
    
	Set InfoBase_DataConnection = CreateObject("ADODB.Connection")
	InfoBase_DataConnection.ConnectionTimeout = InfoBase_DataConnection_ConnectionTimeout
	InfoBase_DataConnection.CommandTimeout = InfoBase_DataConnection_CommandTimeout
	InfoBase_DataConnection.Open InfoBase_DataConnection_ConnectionString, InfoBase_DataConnection_RuntimeUserName, InfoBase_DataConnection_RuntimePassword

	Infobase_DataConnection.Execute SqlQuery, RecA

	if RecA > 0 then
		'one record updated as expected
		InfobaseArchive = RecA
	 else
		InfobaseArchive = false
	end if

End function

Open in new window


security is poor (passwords in clear text) as this is an internal script.
0
 

Author Comment

by:AletsPalas
ID: 40614530
It's great!.

It's useful for  me.

Thank you very much
0
 
LVL 32

Expert Comment

by:Robberbaron (robr)
ID: 40615223
please accept answer and close question if it is solved.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

For a while now I'v been searching for a circular progress control, much like the one you get when first starting your Silverlight application. I found a couple that were written in WPF and there were a few written in Silverlight, but all appeared o…
A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
This is Part 3 in a 3-part series on Experts Exchange to discuss error handling in VBA code written for Excel. Part 1 of this series discussed basic error handling code using VBA. http://www.experts-exchange.com/videos/1478/Excel-Error-Handlin…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

932 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now