Search:

Sub TEST1()

Dim Rs As DAO.Recordset, db2 As DAO.Database, sConnect As String
'Set ws = CreateWorkspace("ODBCWorkspace", "", "", dbUseODBC)

sConnect = "Driver={ODBC Driver 17 for...

Tks Bro!

great Olaf.
tks

But i need to extract the data in this format, DD/MM/YYYY, Debug.Print Len(Content), LastModified

I just have a variable named OGGI As Date

no idea to use shell for this code.
tks in other case

URL = "https://www.istat.it/storage/codici-unita-amministrative/Elenco-comuni-italiani.csv"

how to based this linked file?

In a zip file have, for example:

ABC.csv
Def.csv
....
Ecc.csv

I need to extract only the def.csv from zip file, and storie in c:/mydir/def CSV

How to?

Based:
https://www.dati.salute.gov.it/dati/dettaglioDataset.jsp?menu=dati&idPag=3

how to get the year date from title link?

in my case YEAR=2021

I can have:

...
Dim STRINGA As String

STRINGA="lòlòl______1234___66aaa"
...

I need to replace in STRINGA all space with " " , until STRINGA can have only max one space.

Tks ti the all...
But the name of zip file change dinamiclly, based a date!

Based this link:

https://support.azerouno.it/support/solutions/articles/12000017670-file-aggiornamento-agenzie-bancarie-abi-e-cab-

Ho to get the name of this two .zip file, at the and of page?...

I can use DAO 3.6 to connect Database16.accdb, instead a Database16.mdb?
Tks

If yes simple code.

???? pherpas not for me.
Tks in other case, bro.

WHERE in my code?

My test code:



Function countLines(fName As String) As Long

countLines = CreateObject("Scripting.FileSystemObject").OpenTextFile(fName, 8, True).Line

End Function
Function...

Based this link:
https://www.openstreetmap.org/#map=18/45.47933/9.17394

how to show map in image on form?
Tks

I have this var STRINGA=

"?<?xml version="1.0" encoding="utf-8"?><Response xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"...

I just have this var CAP="128-857-89741-75657")

How to split the string, with "-" into array named VALORE and iterate it with a FOR NEXT?

How to change the lenght of field PRFX, from 5 to 7?

note:
i just hvae an ADO connection named CON.

based this link:

https://www.istat.it/storage/codici-unita-amministrative/Comuni-con-cambio-denominazione.zip


how to check if this zip file exists?

Tks

See image!
First time!

... retry loop to see if it does start working again

For example, in:

With XMLHTTP

.Open "GET", MYURL, False
.setRequestHeader "Authorization", "Bearer " & MYKEY
...

hi bro, tks for link.

But in few case i have error GATEWAY TIMEOUT (504), in .send of api rest.

possible to check this error?

i use in IE to check connection:

Do Until IE.Busy Or...

Tks ok.
But exists a list of possibile server status error?

With XMLHTTP

.Open "GET", MYURL, False
.setRequestHeader "Authorization", "Bearer " & MYKEY
.send

Debug.Print .Status

'Debug.Print...

TKS bro!

but this two var not defined!

Set jsonStreets = Nothing
Set oJson = Nothing

How to list/iterate all items in "streets" node?

note:
I just have the txt file in c:\mydir\

plese urgent access reapair free tool!!!
Tks

Hi Sam
attached the original xls file, see in column B

Ohhhhh....
Italy

I have a txt file with a lines, similar one of , in the attached file.
I think are the coordinates of polygon, i can draw in a form?
Tks

tks bro. but i need on this event:

Private Sub MSFlexGrid2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

End Sub

On click down event on msflexgrid.
How to check of a Cell have blank value?
Tks

i'm using vb 6 and ado.

i just have a table named SERVICE

How to copy into the same database a table, named SERVICE, and rename it in NAPOLI

note
only structure with no data

I use the code above, to get street name from latitude and longitude.

possible to have the same with a zip cod/postal code?

for example:

zipcode: 35031 (Abano Terme)

country IT (italia)

Tks.
Have you tested?

Tks
But have you tested?

Public Function ReverseGeo(Lat As String, Lon As String) As String
With CreateObject("msxml2.xmlhttp")
.Open "GET", "http://dev.virtualearth.net/REST/v1/Locations/" & Lat & "," & Lon &...

How to not appear the windows in image when start the PC or when i click to activate during the stand by?

Ho to create a slider where the first element in start position is 15 and the last position is 21.
And for each click on left or right appear the current value in a label.
This is all.

I have this myvar (As struing) and newmyvar (As struing)

myvar="Valle d'Aosta / Vallée d'Aoste"

Ho to convert in:

newmyvar="Valle%20d%27Aosta%20%2F%20Vall%C3%A9e%20d%27Aoste"