Posts by AV Manoharan

Dear iamthwee & jwenting,
Both of you have really understood me. I indirectly want leroi green to debug the reassembled code and again reassemble it by taking out the variable declaration as well as putting the main method last. of course an 'm' is missing somewhere.

Thanq
Happy programming.

// Your whole program code is reassembled and bugged as below. kido!!
public class Test

{
    //variables
    char a = 'a';

    public static void main(String args[])

    {
        if (args.length < 1)
        {
            System.out.println("Not enough arguments");
        }
        else
        {
                                                System.out.print("The number of character 'a' found is: ");


            Syste.out.print(Count(args[1]));
        }
    }

    public  int Count(String str)
    {
        int charCount = 0;

        for (int i = 0; i<str.length(); i++)
        {
            if (str.charAt(i) == 'a')
            {
                charCount ++;
            }
        }
        return charCount;           

    }
}

can anybody tell me how to create a new dll in vb6 and use it , thanxs.......

On the new Project window, instead of selecting standard exe, select Activex DLL.

write the code. run and debug it. once satsfied make the dll by giving a suitable name to it.

And add that DLL to your standard exe project.

regards

AV Manoharan

Hi to all, is there any place i can download MSDN Library for VB 6.0?
I really need it!
with regards!

You are already on the true path, where it allowed you to post this question.

Search.. Search.. THE NET is a resirvior for many things. Any thing any time any where provided, you have the right connection. And MSDN is free now. Thanks to Microsoft!

GO AHEAD.

regards
AV Manoharan

There are so many postings on this forum regarding text file accessing.

Please give a search for "Text File" you will definetly find couple of true codes.

The search pannel is on the right hand corner of the front page.

Regards

AV Manoharan

Elanch,

Please contact me through the thread. I am finding difficulty to read your private mail. It eats up my time.

Are you all positive to my enquiry?

Please answer me.

Regards
AV Manoharan

I am importing data from access file to a spreadsheet. One of the input field is a "comment" field with a full paragraph of comments. Some of the target cells in the spreadsheet displays "##########". But when I click on the cell, the Menu bar on top of the spreadsheet displays a large amount of data (text values) about a paragraph long.
I am assuming the column/cell is too small to hold that amount of data. I have tried to expand the column, but it's not working

I tried using a MergeCell function to merge some cells so as to have room to stretch out the data, but It's giving me weired message that it can only display the top most data or some stuff like that.
How can I resolve this, any ideas?

Thanks everybody for your input.
tgifgemini.

I know what went wrong.

But that will be babbling...
Thanks

regards
AV Manoharan

The SQLiteDB.dll has to be little polished to make a COM wrapper.

If you could understand any thing on the three boldfaced, you can do it.
Because it can be implimented in VB (For that matter ASP, VBScript, Dot NET etc. which support COM).

Search in the net. Some brilliant guys had made it possible for you.

Then in your project make a reference of it. Then follow
as below by loading it as an ActiveX object or ADO or OLEDB.
Better Use VB.NET

dbpath = [EMAIL="path+@"]path & "\myDatabase.db">path[/EMAIL] & "\myDatabase.db";
'if the db file doesn't exist, create a new db
'New=True to create a db
<A href="mailto:connString=@"Data">connString="Data Source=" & dbpath & ";New=True;UTF8Encoding=True;Version=3";
SQLiteConnection con = new
SQLiteConnection(connString);
SQLiteCommand cmd = con.CreateCommand();
cmd.CommandText="CREATE TABLE customer (name
varchar(30),t myDatabase)";
con.Open();
cmd.ExecuteNonQuery();
con.Close();
cmd.Dispose();

Declarations,Database name,tablename left to you.

****The above code is not tested.

But it is a gateway for you to

Happy Programming

AV Manoharan

hi, im using msaccess as database. can u plz tel me how to delete records using vb (it should serch nad delete)
tkx

If you can acceess a database and retrieve a particular table from it, definetely, you can search,insert rows,delete rows/the entire table,alter,update the whole things. Why ask? Just select the appropriate keyword and its syntax. Much things are in this forum. Just give a search for it.

Happy Programming

AV Manoharan

See coco,
The above program is to call the RSSB.exe program in
interactive mode by the shell, similier to your Notepad
The clsExe function (of course, it is to be called after
some time-delay, otherwise in a flicker both functions
will be executed.), then resize it to 0 length which
automatically finds it place in the taskbar.
But that doesn't solve your problem. Because it will be
alive there until you interactively close it.

If you are more interested in it, I can give you the
logic.

As you know any running program can be killed by the
task manager(ctrl-alt-del). If you can integrate it in
your vb, it is good. I remember studying it in my unix
class about killing a process that you own (or all
process for root), invoking their processor id. Windows
can't be different. Just search in the net. You may find
it. I have not yet, tried it.

Regards

AV Manoharan

yea i think so . thnx... u 've answered it. anyway this is the code

Private Sub CmdChkFile_Click()

Dim fs As FileSystemObject
Dim ts As TextStream, ts1 As TextStream, ts2 As TextStream
Set fs = CreateObject("Scripting.FileSystemObject")
Set ts = fs.OpenTextFile(DatFName, ForReading)
Set ts1 = fs.OpenTextFile(HdrFName, ForReading)
Set ts2 = fs.CreateTextFile(DatFName & "_" & Format(Date, "ddmmyy") & ".rpt")
Dim MyVar As String, MyCheck As String
Dim line As Integer, totalline As Integer, i As Integer
Dim SumCP, SumCN, SumDP, SumDN
Dim HashTPurse, HashTNPurse

Do While Not ts.AtEndOfStream
d = ts.ReadLine

Call tracingFNDat(Mystring)

'function '
line = line + 1

If Trim(Mfgno) = "" Then lbl2.Caption = lbl2.Caption & " mfgNo line =" & line
If Trim(CardTran) = "" Then lbl3.Caption = lbl3.Caption & " crdtraNo line =" & line

totalline = line

Loop

Do While Not ts1.AtEndOfStream
h = ts1.ReadLine

Call tracingFNHdr(Mystring)

Loop

If Trim(RecordCount) <> totalline Then lbl1.Caption = "-BV03- Record Count is mismatch"
If totalline = 0 Then lbl1.Caption = " -BV10- Record Error "
If Val(CP) <> SumCP Then lbl8.Caption = lbl8.Caption & " -BV04- Credit Purse mismatch"
If Val(DP) <> SumDP Then lbl9.Caption = lbl9.Caption & " -BV04- Debit Purse mismatch"
If Val(CN) <> SumCN Then lbl10.Caption = " -BV05- Credit Non Purse mismatch"

HashTPurse = SumCP - SumDP
HashTNPurse = SumCN - SumDN

'Writing'

vmsg = vmsg & DatFName & Chr$(13) & …

See the piece of code below.
this will take care of your no of records=no of lines.
cut and paste over the earlier Do and Loop code.

Do While Not rs.EOF
For i = 0 To rs.Fields.Count - 2
If rs.Fields(i) = Null Then
tstream.Write (",")
Else
tstream.Write (rs.Fields(i) & ",")
End If
Next
if rs.fields(i)<>null then
tstream.write(rs.fields(i))
Else
tstream.write(",")
End if
tstream.WriteLine (Chr(13))
rs.MoveNext
Loop

regards
AV Manoharan

The Code that I have despatched to you will work, provided you do the following.

Open an new exe project.

create a form with one command button.
Pull down the top menu, project
select references.
4 things are defaultly checked for you.
They are
1. Visual Basic for Application
2.Visual Basic runtime object and procedures
3.Visual Basic Objects and Procedures
4. OLE Automation.

Corecct?

Then You browse through the list by pressing the down arrow key, where you will land up in Microsoft ActiveX Data Objects 2.5 Library.
check the box left of it and press ok.

again pulldown the project menu, select references and see whether the Microsoft ActiveX Objects 2.5 Library is checked as the 5th one.
If so click ok.

If this library is not there in your system, try to select a nearest version.
ie, 2.1,2.6,2.7,2.8 any one of them or all
click ok

you are once again on the form window where you have created the command button.
on the rightside pan click the leftmost rectangle(white) for code view.
The Form_load Sub will be there and your cursor blinking in between
the sub and the end sub
Cut and past my code there.
The last line will be a second end sub. Delete it.

Now just run the program by clicking the statrt (arrow head).

Report to me whether …

Dear Suneel,

So it has worked.

Code? That I have already despatched to you.
So nothing wrong with the code.

Now I will tell you what and where you went wrong. Before that let me take my lunch.

I will be back on the thread after 3

regards
AV Manoharan

well i thought tat it would be easier since im not good in explaining.... anyway i 'll try.... the writing in the notepad is continous while i want it to be in two different notepad ... or i cannot stop the shell function....... without pressing the stop button...... haiyo i really bad in explaining.....

Shell function, people use it for interactive mode. So writing to one notepad file will continue in operation until you abandon that shell. After that you have to activate the shell for the next notepad. It also will continue in interactive mode until stoped.

Anyhow, without seeing your piece of code, I won't be able to tell you where exactly the bug.

regards

AV Manoharan

Suneel,
Have you got my Zip file as an attachment?

Please do as I have explained to you.

regards
AV Manoharan

So u want to know where u have gone wrong...?,

u told Jireh to Change her Picture Profie,..?
U told debasidas That his name resonates to a DB..?
U told Jatinder_44, that whenever U open his thread u get "Jitters"..?
(when he asked solution for Comm Port, that person Marked that thread as Solved without getting real help from this Forum and u r responsible for that)
U told me not to give Solution for "OutlookExpress"

they have not complained dosent mean every one is ok with ur suggestions.. they have just Ignored it..

So u r no Moderator and dont have any rights to tell people about their personnel choices.
and I know what i have written in the pvt post to u... thats the Reason i want u to make it Public.. dosent matter if it is Vulgar for u..

Now the real thing is out. You are simply jelous of me.

Thank you keep it up. I take all your blames as commendation from a child not grown up to understand things.

Thank you veena
Enough

Happy Programming

AV Manoharan

microsoft ado ext.2.8
it is not there .
after selectin all u said it is sayin conflicts with the library.
pressin ok aafter this saame error iss coming

one thing i noticed is when i go in control pannel----> Adminstrative tools------->daata sorce OBDC----->fileDSN------>double clicked on dBase.dsn---->selectin dBae4
apply button is not highlighted

dirctry i selected is where my .dbf file is thats
C:\Suneel_Development\Project Code\manohar

That means you did not follow my instructions put in the thread, Read Me: Aceess to any DB's Possible. Any how. I will cut and paste for you here:

Follow as bellow, carefully.

Before copying the text code into you project, Open a new exe project, pull down the menu project, then select components. in components control pannel check the following item.

ctv OLE Control Module
Microsoft ADO Data Control 6.0 (sp6)(OLEDB)
Microsoft Datagrid control 6.0) ..

Press OK

Now Go to references in the same Project window
and see the following are checked

The top 4 are defaulted.
That is up to OLE automation
then,
check microsoft jet and replication objects
microsoft ado ext.2.8
microsoft activex data objects
microsoft DAO 3.6 (incase the ADO doesn't work)

Click ok

create a form with one commandbutton
click the code window from the right pan
and select form local

paste my code

change the path of your dbf file in the connection …

Hi manohar,

I dont believe u still are Hanging in this Thread...?
I wud like to know who else has complained abt my language,
as it is i have received reputaion Points for being up to the point.. and solving the problems.. In turn, many people have problem with ur Language..
I just tyold u to keep away from things which u dont know.. it dosent mean Vulgarity..

If TGIF has told his problem is solved then why u have the problem...?

u r warning me,,? Please get my pvt post to be shown in Public.. I would enjoy it..

and who u think, i'am working for...? M$ has already employed me.. so I'am safe at my "Senior Post".. so dont worry abt my Job..

Regards
Veena

Once more you read the private messege which you have sent to me. Then you judge yourself whether it is not vulgar or not. You have a habit of answering questions without really going through it properly,

eg.
When a person asks in the forum whether it is possible to access a password protected database (without knowing the password). You are ready with the often repeated connection string with the password= mypwd. And when suneel and others asks you again and again, instead of telling sorry, you outbursted to them "I am not a hacker" and all that.

See, if you earned reputation for solving problems it is good. We appreciate you. But it doesn't guarantee …

from top 5 chckboxes r checked

1. visual basic for applications
2vb run time ablects
3vb objects aand procedures
4 OLE automation

5 .Microsoft Activex dataobjects 2.5 library
above this all r checked.
regards
suneel

The top 4 are defaulted.
That is up to OLE automation
then,
check microsoft jet and replication objects
microsoft ado ext.2.8
microsoft activex data objects
microsoft DAO 3.6 (incase the ADO doesn't work)

Regards

AV Manoharan

hI MANOHAR,

IF U DONT HAVE ANY IDEA ON HOW TO GET ADDRESS LIST FROM OUTLOOK EXPRESS, WHY POKE UR NOSE INTO THIE THREAD..?..

IT IS A M$ EXAMPLE.. EVERY ONE USES IT..

If u dnot know abt it.. simply keep quite..

Vee

Veena,
You are crossing the limit of valgarity. Many other people in this forum has expressed their grievences on your language. And beware I am going to inform Dani and the queen of Dani to open the private messege you have sent to me- if you further repeat it.

I have expressed my views. First try to understand the language. An address list and email address are two different things. And to my whole knowledge, Microsoft's outlook express stores the email ids encrypted and you cannot access it other than through the registry that too as a rescue operation for a crashed Outlook express.

If you could directly access through VB, Contact Microsoft. I think Bill will have a senior position waiting for you. Do not waist your time with us (your word).

still with regards

AV Manoharan

good mornin big B
as per ur instructions i
1select control pannnel
2.Adminstrative tools
3 Database sources
4 File DSN
5 In Data sorces
default was dBase.dsn
6 i double clicked on that
7. slected dBase 4
8 then presed ok

but still it is showing no default driver is selected.
if i have done anythin wrong plz rectify.
with regrds
suneel kar

Pull down the menu 'Project' and in it the references.
just see what types are checked. Please see in the preceeding section of this thread that I have explained to you.

And get back to me

regards
AV Manoharan

Hi AV Manoharan,
I don't know what you are babbling about, but Veena have correctly answered my question, so be cool.
tgifgemini.

Correctly answered what? Getting email address from the outlook express? The email addresses stored in the outlook express are encrypted ! and you and Veena Could hack it and decrypt it. Fantastic Dear.

regards
AV Manoharan

Your problem is not clear.

Please explain it without giving the out put of the text file.

dataa source naame:
Description:
wt tto write in that

in the window ODBC Data Source Administrator

Select File Dsn

In the Look in It has to be Data Sources
In the rectangle below the default Inv will be shown
double clicking the mouse on it you will get another window

In that version you select dBase IV
Click Ok

bro
itt is givin me one error " [microsoft][OBDC Driver maanaager]Data source name not found and no default driver selected."
plz reply wt i have to do wid obdc
regards
suneel

Open the control pannel select Administrative tools select ODBC select dBASE Files, Press ADD button, and select Microsfot dBase Driver click finish,OK

Your project requires first a com control component to sniff the USB port, where you have connected your video device. Try to use the Microsoft Comm Control component. If you know that it is very easy. Another way is to use thw Window API

which has the following code to open.

Dim MyPortID as integer
Dim MyComStatus as long
Dir MyComError as string
Dim MyData as string

MyPortId=1 ' or 2 or 3 etc representing com1,com2 etc.

MyComStatus=CommOpen(MyPortID, "COM" & CStr(mytPortID), _
"baud=9600 parity=N data=8 stop=1")
If MyComStatus <> 0 then
'call Error handler
MyComStatus = commGetError(MyComError)
MsgBox "COM ERROR : " & MyComError
end sub
endif

'SET MODEM CONTROL LINES

MyComStatus = CommSetLine(MyPortID, LINE_RTS, True)
MyComStatus = CommSetLine(MytPortID, LINE_DTR, True)

'Read max 64 bytes from the port

MyComStatus = CommRead(MyPortID, MyData, 64)
If MyStatus > 0 Then
' Process data.
ElseIf MyStatus < 0 Then
' Handle error.
End If

' RESET MODEM CONTROL LINES.

MyComStatus = CommSetLine(MyPortID, LINE_RTS, False)
MyComStatus = CommSetLine(MyPortID, LINE_DTR, False)

' Close communications.
Call CommClose(MyPortID)

Please Do not ask this type of help from the forum. As you require the project very badly, I am sending this code to begin it.

Happy Programming.

AV Manoharan

Suneel,
That's not the code segment sent by me. You have altered it.

Why did you do it and blame me that the code is not working. I have tested it fully.

Again cut and paste the code exactly as I have sent. only places you are supposed to change are the path of your dBASE file and in the select clause the dBASE file name including its extension .dbf, without path.

In my code there is only
con.open
nothing more.
Your con open will open only ACCESS database.

The loop of writing the record is as below.
Do While Not rs.EOF
For i = 0 To rs.Fields.Count - 2
If rs.Fields(i) = Null Then
tstream.Write (",")
Else
tstream.Write (rs.Fields(i) & ",")
End If
Next
If rs.Fields(i) = Null Then
tstream.Write (",")
Else
tstream.Write (rs.Fields(i) )
End If
tstream.Write (Chr(13))
rs.MoveNext
Loop

Out side the FOR loop it will write a Coma if the last field is null otherwise its value and terminate it with Carriage return.

This is to comply with spreadsheet format.

Have you done the preliminary things that I have told you to do ?
please get back to me after doing all the things.

happy programming

AV Manoharan

When you are tired and about to loose hope of connecting to dBASE file please contact me.

Happy Programming

AV Manoharan

Hello All.

You people are waisting your time and energy. And I can't understand, why people gives in this thread so many type of codes, telling one way or the other I am soory, please change to this, please omit that etc. without first understanding the basic of it or trying the code themselves! If you have heeded to my advice in this forum by telling gemini that the answer is NO as well as Yes.

I will put it briefly below. Think about it and answer me.

First of all, if you are thinking Outlook Express, just forget it. The only three ways of integrating with Outlook Express are (and this is just my guessing) by paying Microsoft a lot of money and by giving them a really good reason to why you want to do that, or by hooking in through the encryption-entry, or by creating a proper hook and hacking your way in there.

Could you make out any thing from the bold entries above?

Happy Programming

AV Manoharan

Use MAPI

I hope your problem is over now. How is my code? simple isn't it?

Jireh,
Kindly change your BLOB. It has a threatening look!

Now, your Doubt.

DAO or ADO. What is the difference. And all that.
See, I have elsewhere in this thread explained the diiference briefly.

Hear me more.

If you are a DBA or DBD (Database Administrator or Database developer), you require frequent access to so many varities of data souces such as server-based, desktop, spreadshhet, textfiles etc. type of databases. You might have witnessed in this forum people asking the same question of connecton to ACCESS, dBASE etc. data bases.

If you think of developing custom built interfaces for each type of databases, then you can imagine the difficulty of a programer. Here only microsoft's contribution of DAO and ADO becomes so valuable for a developer in Microsoft environment. It relieves much burden from a programmer by giving himm an abstract highlevel interface.
DAO and ADO basically does the same thing. But why ADO instead of DAO is that DAO is the earlier technology and ADO is new one. The technology is ever changing.

Microsoft is known for its dubious reputation in the software industry as a 'developer-locking Giant', means making developers and end users stick to Microsoft environment. By the introduction of ADO, actually, Microsoft restricted developers from going to platform independed environment (eg. Java). Microsoft included ADO drivers for any data sourse you can imagine. Text File database, Spreadsheet databases, oracle databases, IBM DB2, SQL databases... the list is …

Anud,

Please look in the thread Read Me. Access to any type of DB is possible
started by me.

Happy Programming
AV Manoharan

Suneel,
I have emailed the complete program to you. Do not ask me like this any more. Because, I am a very busy person. For your requirement I have to stream line the code and after testing I am sending it to you.
Do not give the sourse code to anybody. Keep it to yourself

You have to change the path in the connection string for the dbase file. Your data file will be created in c:\drive. The data file can be imported to Excell very easily by giving the delimiter , (coma)

You have to do some preliminary works.

Follow as bellow, carefully.

Before copying the text code into you project, Open a new exe project, pull down the menu project, then select components. in components control pannel check the following item.

ctv OLE Control Module
Microsoft ADO Data Control 6.0 (sp6)(OLEDB)
Microsoft Datagrid control 6.0) ..

Press OK

Now Go to references in the same Project window
and see the following are checked

The top 4 are defaulted.
That is up to OLE automation
then,
check microsoft jet and replication objects
microsoft ado ext.2.8
microsoft activex data objects
microsoft DAO 3.6 (incase the ADO doesn't work)

Click ok

create a form with one commandbutton
click the code window from the right pan
and select form local

paste my code

change the path of …

.dbf file name is RR.dbf,
path where project is saved is C:\suneel-development\New folder\record reading.
these things veena told me to do but i am not v clear with this the code which u send me earlier was easy to understand .mazy i have ue gmail id
if u can help me i will be thankful
reply soon
regards
suneel.

I AM NOT INTERESTED IN YOUR PROJECT PATH. I WANT THE PATH OF YOUR DBF FILE RR.DBF (WHERE IN YOUR HARD DISK YOU HAVE STORED RR.DBF

hi Mohanram
this is me suneel.i am sendin u code for readin data from .dbf files recordwise and storing the data recordwise in txt file.but it is givin me the errr"Could not find installable ISAM' wts that.someone has edited my code but its not workin then also.it is edited code.

Option Explicit

Dim DB As Database

Private Sub Command1_Click()
'
Dim sSQL As String
Dim RST As Recordset
Dim FN As Long
Dim j As Integer
Dim FldCnt As Integer
Dim i As Long
'
Set DB = DBEngine.OpenDatabase(App.Path, False, False, "FoxPro 2.5;")
sSQL = "Select * from RR Order By SNo"
Set RST = DB.OpenRecordset(sSQL, dbOpenSnapshot)
If RST.RecordCount > 0 Then
RST.MoveFirst
If Dir("c:\RecTexts") = "" Then
MkDir "c:\RecTexts"
End If
If Dir("c:\RecTexts\data.txt") <> "" Then
Kill "c:\RecTexts\*.*"
End If
'
i = 0
'
FldCnt = RST.Fields.Count - 1
Do While Not RST.EOF
'
i = i + 1
FN = FreeFile
Open "c:\RecTexts\DATA" & i & ".TXT" For Append As FN
For j = 0 To FldCnt
Print #FN, IIf(IsNull(RST(j)), "", RST(j))
Next
Close #FN
RST.MoveNext
Loop
End If
RST.Close
Set RST = Nothing
DB.Close
Set DB = Nothing
MsgBox "Transfer Over Check Folder C:\RecTexts"
End Sub

reply soon
regards
suneel

Hi tgif,

Add a Listbox to the form and
use this code:

Copy to Clipboard

Option Explicit
Dim ola As Outlook.AddressList
Dim ole As Outlook.AddressEntry
List1.Clear
Private Sub address_book_Click()
On Error Resume Next
Set ola = Application.Session.AddressLists("MyContacts") 
For Each ole In ola.AddressEntries
   List1.AddItem ole
Next
Set ola = Nothing
Set ole = Nothing
End Sub

In above code, change MyContacts to the name of ur Address Book.

Regards
Veena

Veena, It is not his addressbook he wants. He wants address book of outlook express. Please help him to find out!

Ro,
Please gauge your task yourself. The complex algorithm
which you have to translate into workable codes in VB.
Of course, there are off-the-shelf objects and methodes
in VB. But to use those things my openion is that you
have to have above medium level programming ability in VB. From
your posting, I could understand that you have just
begun only.

See, people have a notion that the throughput or the
bandwidth of a given medium can be measured as the time
taken between two systems to transfer a particular file
of known quantum (KBS MEGAS) through it. That is only
basic. There are so many other bottlenecks that are to be
hard coded into your program. (eg. even the type of the
ethernet card got a performance grade). I think for this
purpose we have to run a tutorial for you. And this is
against the very purpose of this forum. Please read the
anouncement of Queen Dani in the upper pannel.

First try to write suedo code for you algorithm and try
to translate it into VB. We are here to help you by
clearing your doubts.

Happy Programming

regards
AV Manoharan

Hello everyone,
is there a posibility that I can look up email addresses from outlook email address book instead of accepting email address from an inputbox or hard-coding it?
See my codes below:
Thanks.

Copy to Clipboard

SENDEMAIL:
 Set OutlookApp = CreateObject("Outlook.Application")
 Set OutlookMail = OutlookApp.CreateItem(0)
 
 OutlookMail.To = EmailID
 OutlookMail.Subject = "Project Status"
 OutlookMail.Body = "This is VB email test"
 
 If Len(MailAttach) = 0 Then
    OutlookMail.Attachments.Add MailAttach  '"C:\ProjectStatus.xls"
 End If

tgifgemini

Answer = No as well as Yes.

No means not directly and Yes means indirectly.

Why not directly ? Because it exposes the address book to hackers very easily.

How indirectly ? There is a Outlook Express API (OEAPI) developed by third parties which you can use it, not only in VB but also in host of other programming languages.

If you are a very advanced programmer you would be knowing it already or else while you approach to that category you will come across with it.

Be contended now and get back to me later.

Happy programming

regards
AV Manoharan

from vb6.0 u can connect to all versions of ACCESS.

Dear Das,
Please ask Laoli what type of Connection (DAO or ADO)
he/she has used to gain access to Access database. conspicuously
he/she is silent after starting the thread.

regards
AV Manoharan

ok, i want to use this to create a report, but i need to put colors in the cells, and to merge some cells too, ... so things i can only do with excel...
There are some visors, wich are used to see and edit the excel content of a file, so... i want the program to create the excel reports, without the need of have excel installed in the computer.
If i use text or csv files (..or something like that), maybe i couldn't give to the user reports with the optimal format, and also the report may not be read for any visor for excel...
That's why i'm looking for one way to create a excel file without have excel installed.

See, excel is a program that has innumarable intricacies built into it, apart from somany externals, such as dlls, ocxs and what not. Only God and Bill know it. And it helps you to design all the features you wish to give to your report . I can't understand your idea to incorporate all the features and produce a report which looks like an excel report but sans excel ! You are really Great! If you can do that, believe me, I will be the first person to buy it and will discard Microsoft's world famous excel.

How can you edit an excel file without having excell installed. No way. But there is a way arround.

First your program should check whether excel is installed or not. If installed take the normal course for creation editing etc. If not installed, take another course in you program for creation of a text file (if already created in an earlier run, Append,update etc ),with delimiters corressponding to columns and lines as raws. Later when installed you can check the existence of this text file and convert it to excel file and the earlier one deleted.

It is really a very brilliant task.

If you have the patience and a Will, get back to me. I will explain to you the details. For the time being, warn the User that your program required excel to be installed and exit.

Happy Programming

regards
AV Manoharan

After all the fight between both of you ,why not also post some RDO code.
That can help a some users.

Thanks. Your User name resonate with dbase. What should I call you?

anyone who can help me regarding how to read data from .dbf files recordwise.

See it in the thread Access to any type of DB's possible for your dbase and opening 2 files for your writng records to text files

regards
AV Manoharan

Again, Veena, I think, you are yet to understand what is ODBC and what is DAO. For your kind information, let me tell you that DAO access databases through ODBC not the opposite way you have understood and said this "Using ODBC for accessing DAO components is the worst way one can have."
and also "If u r telling users to use "ODBC" for jet Access databases, its high time, u take a course on DAO."

I will make it little more clear to you (more messing up ?).

When you set the connection string manually, you are building a so-called DSN-less connection. DSN is the Data Source Name by which a data source is known to your computer. Windows allows you to create a DSN for a database and then use the DSN name to connect to the database eg.

DSN=MYDSNDB

Here MYDSNDB represents your Databaese, say MyDB, provided you have created it like that.

If you are not clear, please get back to me.

And Still I stick on to the point that DAO is an outdated technology,comparing to the more universal ADO. If you don't believe, please post a message to Dani or put it to the observers.

Happy Programming

AV Manoharan

The file Access component consists of two objects that give script access to textfiles. The textstream object lets your script open,read from and write to text files. Caution: These objects cannot be used with binary files!

First create a filesystemobject and bind it to a Binder by the set command.

Set fs = CreateObject("Scripting.FileSystemObject")

now by using the binder fs you can open any number of files with seperate handlers. eg.

Set Mystream1 = fs.OpenTextFile(filename1, iomode,create,format)
Set MyStream2 = fs.OpenTextFile(filename2,iomode,create,format)
...
etc.

Mystraem1,Mystream2 are two seperate handlers for the specific files, filename1 and filename2.

The filname1,filename2 etc argument is the only required one. Of the remaining optionals, the iomode can be one of the following constands:

ForReading --- read only
For Appending ---- file opend for appending data

The create is a boolean value which notify its succees or failier.

The format is again True or False. True means UNICODE, False
ASCII

Now you can read write your files by the filehandlers. eg.

Mystream1.Read(characters)
Mystream1.ReadAll
Mystream1.ReadLine
Mystream2.Wrtite(string)
Mystream2.WriteLine(string)

where
characters is the number of characters
All means, the entire contents of the file
Line meane one line at a time.

Write(string) writes a string into the file without a newline characher, whereas WriteLine writes the string and append it with a newline character.

Happy Programming.

regards
AV Manoharan

Hello Manohar,

I Mean Check the DAO code in ur new project.
and u r talking abt ADO connection String.. look who is messing up the things.

Regards
Veena

DAO or ADO ?

Veena, Again see, you have to do some preliminary work for setting up Data Source for an Access Database (auto). for DAO as follows:

Open the control pannel and double click the ODBC Data Source from the Administrative Tools, Click the Add button on the ODBC Data Source Administrator Window and select Microsoft Access Driver. In the ODBC Microsoft Access Setup window,specify a data source name and a description. Click Select and you will be prompted to select the MDB file in a File Open dialogbox. Locate your "MyDb.Mdb" file on your disk and click OK. After returning to your ODBC Microsoft Access Setup window, click OK, and you are through for that database on all your project without a connection string (Cnn). Otherwuse you have to give the pathname,filename after the data source, string identifier. eg.

Data Source = C:\Program Files\VB98\NWind.mdb

and you have to declare and open the connection cnn.

DAO is an old fashioned programming technique developed by Microsoft before the ADO technique. ADO hides the pecularities of each database and gives developers a simple conceptual veiw of the underlying database Many of you may be familier with DAO and RDO which uses the ODBC drivers. In someway DAO and ADO are equevalent but further updation of …

Hi Manohar,

Where is the Path and Where r u setting/Opening Current DB..?
Where r u Setting parameters for Current D?
Simply setting DB to CurrentDb dosent work.

and whatever connection String u have given is only for "ADO" Connection.
Moreover u dont need a ADO Command object to execute a query, u can directly exceute it on ADO Conn object.

Regards
Veena

My dear Veena,

I think you messed up all things. My connection string is for all types of DBs. It is very advanced which you people may not be aware of.
When you provide a connection string with all the details, it is not necessary for giving path name etc. Just table name is enough. Why don't you try it before passing corrections/ judgements ? And for your information my CurrentDB() will look after all those thing. Please just try the code and get back to me.

regards
AV Manoharan

Hi Manohar,

In whole of ur post, u did not Mention opeing of DB in DAO method,

Set DB = DBEngine.OpenDatabase("C:\MyDB",False,False,";pwd=Mypwd")

Regards
Veena

Dear Veena,

what is the code SET DB = CurrentDb() denotes ?

thanks for showing interest in my postings.

regards
AV Manoharan