import LDIF file to Access using VB

[jade]

Hi everyone

I've created a database of contacts from which I'd like to export/import in LDIF format - which would obviously permit me to import to Thunderbird :D .

I've managed to export to the LDIF format following some code I found on the net (thanks ) but I haven't been able to do the opposite, i.e. import into access from the LDIF format.

I've found lots of hints regarding the use of INPUT, EOF, InStr etc., but I haven't really been able to get my head round it. I'm not a programmer, obviously, just a frustrated "wish I was one".

Would anyone be able to provide example code that I can then try to adapt?

Thanks for any help you guys can give me

JADE

[comteck]

What is LDIF?

comteck

[jade]

See this link
what is LDIF

Basically its a multiline text file. I need to be able to import the values (ignoring all "objectclass" lines) into a table, where the attribute name is the same as the column name in the table.

e.g.
dn: uid=1010001
objectclass: top
objectclass: person
objectclass: organizationalPerson
objectclass: inetOrgPerson
objectclass: mozillaAbPersonAlpha
uid: 1010001
cn: name
sn: surname
mozillaNickname:
description: text data

becomes......

dn.......................uid............cn........ .sn...........mozillanickname...description
uid=1010001.....1010001....name....surname........ ......................text data


where the first line =column names, and the second line contains the data.

Each record is divided by an empty line (or carriage return & line feed).
Each record starts with the "dn" attribute
Not all attributes will have a value
Not necessarily all attributes will be listed for each record.

[Afri473]

Hi everyone

I've created a database of contacts from which I'd like to export/import in LDIF format - which would obviously permit me to import to Thunderbird :D .

I've managed to export to the LDIF format following some code I found on the net (thanks ) but I haven't been able to do the opposite, i.e. import into access from the LDIF format.

I've found lots of hints regarding the use of INPUT, EOF, InStr etc., but I haven't really been able to get my head round it. I'm not a programmer, obviously, just a frustrated "wish I was one".

Would anyone be able to provide example code that I can then try to adapt?

Thanks for any help you guys can give me

JADE

Hi !
I´m sorry, I can´t help You, but I´m interested in Your export solution.
I am looking for a tool to make an LDIF File from an Access database, but as yet I did not find one.

[jade]

1. Basically you need to create a query which pulls together the contact data you want to put in the LDIF file.
2. The names of these fields must then be "matched" to the names in Thunderbird ... and the match written into a module function.
3. Launch the function using a button
.................................................. ......................
Following is the function I use - save it into a new module
.................................................. ......................

Function BuildLDIF() As Boolean

Const csPathName = "C:\path_to_save_LDIF_file\"

Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim rstMembers As DAO.Recordset
Dim intFileNum As Integer
Dim strFileName As String * 19
Dim csCRLF As String * 2

Set dbs = currentdb
csCRLF = Chr(13) + Chr(10)

' This command assigns the next available file number to the variable intFileNum.
' I believe this technique is better than trying to keep track of actual numbers.
intFileNum = FreeFile

' This next line creates the name of the text file, based on the current date.
' The filename will be of the form "DB-YYMMDD.ldif
' strFileName = "DB" & Right$(Year(Date), 2) & String$(2 - Len(Month(Date)), "0") & Month(Date) & String$(2 - Len(Day(Date)), "0") & Day(Date) & ".ldif"
strFileName = "DB-YYMMDD.ldif"
' This command opens the file, and includes several optional parameters:
' For Output = mode to open the file. Output specifies write-only,sequential access.
' it will also overwrite an existing file with the same name, if it exists.
' Access Write = Optional; specifies write-only access to the file.
' Lock Read Write = Optional; locks the file from being read or written to while
' in use.
Open csPathName & strFileName For Output Access Write Lock Read Write As intFileNum

Set rst = dbs.OpenRecordset("SELECT * FROM query_export_data_ to_thunderbird", dbOpenSnapshot, dbReadOnly)

' Add contacts

While Not rst.EOF
Print #intFileNum, "dn: uid=" & rst!an_conto & rst!co_ID
Print #intFileNum, "objectclass: top"
Print #intFileNum, "objectclass: person"
Print #intFileNum, "objectclass: organizationalPerson"
Print #intFileNum, "objectclass: inetOrgPerson"
Print #intFileNum, "objectclass: mozillaAbPersonAlpha"
Print #intFileNum, "uid: " & rst!co_ID
Print #intFileNum, "cn: " & rst!nome_cognome
Print #intFileNum, "sn: " & rst!cognome
Print #intFileNum, "mozillaNickname: " & rst!nick
Print #intFileNum, "mail: " & rst!Email
Print #intFileNum, "mozillaSecondEmail: " & rst!email2
Print #intFileNum, "telephonenumber: " & rst!tel_lav
Print #intFileNum, "homePhone: " & rst!tel_casa
Print #intFileNum, "fax: " & rst!fax
Print #intFileNum, "pager: " & rst!cercap
Print #intFileNum, "mobile:" & rst!Cell; ""
Print #intFileNum, "homeStreet: " & rst!casa_ind; ""
Print #intFileNum, "mozillaHomeStreet2: " & rst!casa_ind2; ""
Print #intFileNum, "mozillaHomeLocalityName: " & rst!casa_città; ""
Print #intFileNum, "mozillaHomeState: " & rst!casa_pr; ""
Print #intFileNum, "mozillaHomePostalCode: " & rst!casa_cap; ""
Print #intFileNum, "mozillaHomeCountryName: " & rst!casa_naz; ""
Print #intFileNum, "street: " & rst!lav_ind; ""
Print #intFileNum, "mozillaWorkStreet2: " & rst!lav_ind2; ""
'Print #intFileNum, "l: " & rst!; ""
Print #intFileNum, "st: " & rst!lav_pr; ""
Print #intFileNum, "postalCode: " & rst!lav_cap; ""
Print #intFileNum, "c: " & rst!lav_nazione; ""
Print #intFileNum, "title: " & rst!lav_titolo; ""
Print #intFileNum, "department: " & rst!reparto; ""
Print #intFileNum, "company: " & rst!azienda; ""
Print #intFileNum, "mozillaWorkUrl: " & rst!lav_web; ""
Print #intFileNum, "mozillaHomeUrl: " & rst!casa_web; ""
Print #intFileNum, "mozillaCustom1: " & rst!p1; ""
Print #intFileNum, "mozillaCustom2: " & rst!p2; ""
Print #intFileNum, "mozillaCustom3: " & rst!p3; ""
Print #intFileNum, "mozillaCustom4: " & rst!p4; ""
Print #intFileNum, "description: " & rst!note & csCRLF
rst.MoveNext
Wend

rst.Close
Set rst = Nothing
Set dbs = Nothing
Close ' Closes the output to the text file.

BuildLDIF = True

End Function
.................................................. ..........................................
Obviously, don't forget to replace my path, filename,rst!fieldnames with yours etc.
NOTE THAT THE FUNCTION IS NOT MINE, I FOUND IT ON THE WEB.....THANKS ONCE AGAIN TO ITS AUTHOR
Then create a button in a mask that calls the function BuildLDIF.

Good luck