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 "objectclas s" 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: organizationalP erson
objectclass: inetOrgPerson
objectclass: mozillaAbPerson Alpha
uid: 1010001
cn: name
sn: surname
mozillaNickname :
description: text data

becomes......

dn............. ..........uid.. ..........cn... ......sn....... ....mozillanick name...descript ion
uid=1010001.... .1010001....nam e....surname... ............... ............tex t 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_sav e_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(Dat e), 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.OpenRecords et("SELECT * FROM query_export_da ta_ to_thunderbird" , dbOpenSnapshot, dbReadOnly)

' Add contacts

While Not rst.EOF
Print #intFileNum, "dn: uid=" & rst!an_conto & rst!co_ID
Print #intFileNum, "objectclas s: top"
Print #intFileNum, "objectclas s: person"
Print #intFileNum, "objectclas s: organizationalP erson"
Print #intFileNum, "objectclas s: inetOrgPerson"
Print #intFileNum, "objectclas s: mozillaAbPerson Alpha"
Print #intFileNum, "uid: " & rst!co_ID
Print #intFileNum, "cn: " & rst!nome_cognom e
Print #intFileNum, "sn: " & rst!cognome
Print #intFileNum, "mozillaNicknam e: " & rst!nick
Print #intFileNum, "mail: " & rst!Email
Print #intFileNum, "mozillaSecondE mail: " & rst!email2
Print #intFileNum, "telephonenumbe r: " & 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, "mozillaHomeStr eet2: " & rst!casa_ind2; ""
Print #intFileNum, "mozillaHomeLoc alityName: " & rst!casa_città; ""
Print #intFileNum, "mozillaHomeSta te: " & rst!casa_pr; ""
Print #intFileNum, "mozillaHomePos talCode: " & rst!casa_cap; ""
Print #intFileNum, "mozillaHomeCou ntryName: " & rst!casa_naz; ""
Print #intFileNum, "street: " & rst!lav_ind; ""
Print #intFileNum, "mozillaWorkStr eet2: " & 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, "descriptio n: " & 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!fi eldnames 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