Connecting to a DataBase like i did in VB 6

[Chris]

Hi all,

I wrote a cool little database program a while back, in VB6, and im
intending to rewrite it in .net.

I am new(ish) to .net, but an old hand at VB5/6.

In VB i would access the mdb file something like this.

set db=database
set db=opendatabase ("mydb.mdb")
dim rec as recordset
set rec= db.openrecordse t("select name form names")

while rec.eof=false
debug.write(rec !name)
wend
How do i do the same in .net, it seems to want me to set up these pages ets,
but i need to create queries and joins on the fly so data can be accessed as
the user requests.

Ive looked in the help, and followed the tutorials, but i cant seem to be
able to query the db properly, or even connect to it in the way that i want.

Thanks in advance

Chris

[Nick Wilton]

Use the OleDdDataAdapte r, Connection and Command controls in winforms to
generate the strings that you require for your app. To manipulate these
strings programmaticall y try using the stringbuilder class.

"Chris" <xc*****@lineon e.net> wrote in message
news:OS******** ******@tk2msftn gp13.phx.gbl...

Hi all,

I wrote a cool little database program a while back, in VB6, and im
intending to rewrite it in .net.

I am new(ish) to .net, but an old hand at VB5/6.

In VB i would access the mdb file something like this.

set db=database
set db=opendatabase ("mydb.mdb")
dim rec as recordset
set rec= db.openrecordse t("select name form names")

while rec.eof=false
debug.write(rec !name)
wend
How do i do the same in .net, it seems to want me to set up these pages ets, but i need to create queries and joins on the fly so data can be accessed as the user requests.

Ive looked in the help, and followed the tutorials, but i cant seem to be
able to query the db properly, or even connect to it in the way that i want.
Thanks in advance

Chris

[Chris]

Can you give a code example that does teh same as my code below please.
"Nick Wilton" <nickDOTwiltonA ThtzDOTbiz> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

Use the OleDdDataAdapte r, Connection and Command controls in winforms to
generate the strings that you require for your app. To manipulate these
strings programmaticall y try using the stringbuilder class.

"Chris" <xc*****@lineon e.net> wrote in message
news:OS******** ******@tk2msftn gp13.phx.gbl...

Hi all,

I wrote a cool little database program a while back, in VB6, and im
intending to rewrite it in .net.

I am new(ish) to .net, but an old hand at VB5/6.

In VB i would access the mdb file something like this.

set db=database
set db=opendatabase ("mydb.mdb")
dim rec as recordset
set rec= db.openrecordse t("select name form names")

while rec.eof=false
debug.write(rec !name) rec.movenext wend
How do i do the same in .net, it seems to want me to set up these pages ets,

but i need to create queries and joins on the fly so data can be accessed as

the user requests.

Ive looked in the help, and followed the tutorials, but i cant seem to

be able to query the db properly, or even connect to it in the way that i

want.

Thanks in advance

Chris

[Cor Ligthert]

Chris,

Without all error checking.
\\\
Dim ds as new dataset
Dim Conn As New OleDbConnection (Microsoft.Jet. OLEDB.4.0;Data
Source="C:\mydb .Mdb")
Dim da As New OleDbDataAdapte r("Select name from names",Conn)
da.Fill(ds)
for each dr as datarow in ds.tables(0).ro ws
console.write(d r("name").ToStr ing)
next
////

I hope this helps?

Cor

I wrote a cool little database program a while back, in VB6, and im
intending to rewrite it in .net.

I am new(ish) to .net, but an old hand at VB5/6.

In VB i would access the mdb file something like this.

set db=database
set db=opendatabase ("mydb.mdb")
dim rec as recordset
set rec= db.openrecordse t("select name form names")

while rec.eof=false
debug.write(rec !name)
wend
How do i do the same in .net, it seems to want me to set up these pages ets, but i need to create queries and joins on the fly so data can be accessed as the user requests.

Ive looked in the help, and followed the tutorials, but i cant seem to be
able to query the db properly, or even connect to it in the way that i want.
Thanks in advance

Chris

[Nick Wilton]

Something like this:

Dim mydbConnection As OleDb.OleDbConn ection
mydbConnection. ConnectionStrin g = "c:\mydb.md b"
mydbConnection. Open()

Dim mydbCommand As OleDb.OleDbComm and
mydbCommand.Con nection = mydbConnection
mydbCommand.Com mandText = "SELECT * FROM MyTable"

Dim myreader As oleDB.OleDbData Reader

myreader = mydbCommand.Exe cuteReader

You can now inspect the myreader object the same way as you did with your
recordset.

"Chris" <xc*****@lineon e.net> wrote in message
news:e5******** ******@tk2msftn gp13.phx.gbl...

Can you give a code example that does teh same as my code below please.
"Nick Wilton" <nickDOTwiltonA ThtzDOTbiz> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

Use the OleDdDataAdapte r, Connection and Command controls in winforms to

generate the strings that you require for your app. To manipulate these
strings programmaticall y try using the stringbuilder class.

"Chris" <xc*****@lineon e.net> wrote in message
news:OS******** ******@tk2msftn gp13.phx.gbl...

Hi all,

I wrote a cool little database program a while back, in VB6, and im
intending to rewrite it in .net.

I am new(ish) to .net, but an old hand at VB5/6.

In VB i would access the mdb file something like this.

set db=database
set db=opendatabase ("mydb.mdb")
dim rec as recordset
set rec= db.openrecordse t("select name form names")

while rec.eof=false
debug.write(rec !name) rec.movenext wend
How do i do the same in .net, it seems to want me to set up these

pages ets,

but i need to create queries and joins on the fly so data can be

accessed

as

the user requests.

Ive looked in the help, and followed the tutorials, but i cant seem to

be able to query the db properly, or even connect to it in the way that i

want.

Thanks in advance

Chris

[Chris]

Thanks Nick thats great, but how do i get at the data?

eg.

debug.writeline (myreader!name)

just throws an error. AAh i know what i wnnt, but not how to sintax it.

BTW, all the objects need to be new(ed) on the dims.

"Nick Wilton" <nickDOTwiltonA ThtzDOTbiz> wrote in message
news:%2******** ********@tk2msf tngp13.phx.gbl. ..

Something like this:

Dim mydbConnection As OleDb.OleDbConn ection
mydbConnection. ConnectionStrin g = "c:\mydb.md b"
mydbConnection. Open()

Dim mydbCommand As OleDb.OleDbComm and
mydbCommand.Con nection = mydbConnection
mydbCommand.Com mandText = "SELECT * FROM MyTable"

Dim myreader As oleDB.OleDbData Reader

myreader = mydbCommand.Exe cuteReader

You can now inspect the myreader object the same way as you did with your
recordset.

"Chris" <xc*****@lineon e.net> wrote in message
news:e5******** ******@tk2msftn gp13.phx.gbl...

Can you give a code example that does teh same as my code below please.
"Nick Wilton" <nickDOTwiltonA ThtzDOTbiz> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..

Use the OleDdDataAdapte r, Connection and Command controls in winforms to generate the strings that you require for your app. To manipulate these strings programmaticall y try using the stringbuilder class.

"Chris" <xc*****@lineon e.net> wrote in message
news:OS******** ******@tk2msftn gp13.phx.gbl...
> Hi all,
>
> I wrote a cool little database program a while back, in VB6, and im
> intending to rewrite it in .net.
>
> I am new(ish) to .net, but an old hand at VB5/6.
>
> In VB i would access the mdb file something like this.
>
> set db=database
> set db=opendatabase ("mydb.mdb")
> dim rec as recordset
> set rec= db.openrecordse t("select name form names")
>
> while rec.eof=false
> debug.write(rec !name)

rec.movenext

> wend
>
>
> How do i do the same in .net, it seems to want me to set up these pages ets,
> but i need to create queries and joins on the fly so data can be

accessed

as
> the user requests.
>
> Ive looked in the help, and followed the tutorials, but i cant seem to

be

> able to query the db properly, or even connect to it in the way that

i want.
>
> Thanks in advance
>
> Chris
>
>
>

[Ron Allen]

Chris,
Use
Do While myreader.Read ' assuming I've got the VB syntax for this
loop
Dim myVar AS string = myreader.GetStr ing(0) ' for a string at the
first field returned
' also see GetOrdinal to lookup the column #
from the name
Dim myInt AS int =
myreader.GetInt 32(myreader.Get Ordinal("myFiel dName"))
Loop

Ron Allen
"Chris" <xc*****@lineon e.net> wrote in message
news:uL******** ******@TK2MSFTN GP09.phx.gbl...

Thanks Nick thats great, but how do i get at the data?

eg.

debug.writeline (myreader!name)

just throws an error. AAh i know what i wnnt, but not how to sintax it.

BTW, all the objects need to be new(ed) on the dims.

"Nick Wilton" <nickDOTwiltonA ThtzDOTbiz> wrote in message
news:%2******** ********@tk2msf tngp13.phx.gbl. ..

Something like this:

Dim mydbConnection As OleDb.OleDbConn ection
mydbConnection. ConnectionStrin g = "c:\mydb.md b"
mydbConnection. Open()

Dim mydbCommand As OleDb.OleDbComm and
mydbCommand.Con nection = mydbConnection
mydbCommand.Com mandText = "SELECT * FROM MyTable"

Dim myreader As oleDB.OleDbData Reader

myreader = mydbCommand.Exe cuteReader

You can now inspect the myreader object the same way as you did with your

recordset.

"Chris" <xc*****@lineon e.net> wrote in message
news:e5******** ******@tk2msftn gp13.phx.gbl...

Can you give a code example that does teh same as my code below please.

"Nick Wilton" <nickDOTwiltonA ThtzDOTbiz> wrote in message
news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..
> Use the OleDdDataAdapte r, Connection and Command controls in winforms

to

> generate the strings that you require for your app. To manipulate

these > strings programmaticall y try using the stringbuilder class.
>
> "Chris" <xc*****@lineon e.net> wrote in message
> news:OS******** ******@tk2msftn gp13.phx.gbl...
> > Hi all,
> >
> > I wrote a cool little database program a while back, in VB6, and

im > > intending to rewrite it in .net.
> >
> > I am new(ish) to .net, but an old hand at VB5/6.
> >
> > In VB i would access the mdb file something like this.
> >
> > set db=database
> > set db=opendatabase ("mydb.mdb")
> > dim rec as recordset
> > set rec= db.openrecordse t("select name form names")
> >
> > while rec.eof=false
> > debug.write(rec !name)
rec.movenext
> > wend
> >
> >
> > How do i do the same in .net, it seems to want me to set up these

pages

> ets,
> > but i need to create queries and joins on the fly so data can be
accessed
> as
> > the user requests.
> >
> > Ive looked in the help, and followed the tutorials, but i cant

seem to be
> > able to query the db properly, or even connect to it in the way

that

i > want.
> >
> > Thanks in advance
> >
> > Chris
> >
> >
> >
>
>

[Chris]

Sorry ron but that does nothing but throw erreors.

I think i am missing a consecpt here, or .NET has taken DB programing and
made it so trikey that no one can use it propperly.

All i wnat is this translated into .NET, ive just complied it and got it
running in VB6, took me 5mins. In fact it took me less time to write that
code than it did to write this message. Unlike 2+ days for .NET to do the
same thing and still no joy.

here is excatly what i wnat converted, i need the VAR names to remain if
possible.
db.mdb has one table (Users) with 2 collums, (Name, Password)
///
dim DB as Database ' i wnat to use the db everywher in the program so i
only want to open it once.

sub main()

set DB = opendatabase("C :\db.mdb") 'open DB

dim qry as string = "Select * from users;" 'set query
dim usr as recordset 'create an empty
record set

set usr = db.openrecordse t(qry) ' populate record set

while usr.eof = false ' loop unless
end of record set is reached
debug.writeline (usr!Name) 'dump name from
current record
debug.writeline (usr!Password) 'dump password from
current record
usr.movenext 'move to
next record
end while.

end sub
///

how can this be so diffacult in .NET !!!



"Ron Allen" <rallen@_nospam _src-us.com> wrote in message
news:ex******** ******@TK2MSFTN GP09.phx.gbl...

Chris,
Use
Do While myreader.Read ' assuming I've got the VB syntax for this
loop
Dim myVar AS string = myreader.GetStr ing(0) ' for a string at the first field returned
' also see GetOrdinal to lookup the column #
from the name
Dim myInt AS int =
myreader.GetInt 32(myreader.Get Ordinal("myFiel dName"))
Loop

Ron Allen
"Chris" <xc*****@lineon e.net> wrote in message
news:uL******** ******@TK2MSFTN GP09.phx.gbl...

Thanks Nick thats great, but how do i get at the data?

eg.

debug.writeline (myreader!name)

just throws an error. AAh i know what i wnnt, but not how to sintax it.

BTW, all the objects need to be new(ed) on the dims.

"Nick Wilton" <nickDOTwiltonA ThtzDOTbiz> wrote in message
news:%2******** ********@tk2msf tngp13.phx.gbl. ..

Something like this:

Dim mydbConnection As OleDb.OleDbConn ection
mydbConnection. ConnectionStrin g = "c:\mydb.md b"
mydbConnection. Open()

Dim mydbCommand As OleDb.OleDbComm and
mydbCommand.Con nection = mydbConnection
mydbCommand.Com mandText = "SELECT * FROM MyTable"

Dim myreader As oleDB.OleDbData Reader

myreader = mydbCommand.Exe cuteReader

You can now inspect the myreader object the same way as you did with your recordset.

"Chris" <xc*****@lineon e.net> wrote in message
news:e5******** ******@tk2msftn gp13.phx.gbl...
> Can you give a code example that does teh same as my code below please. >
>
> "Nick Wilton" <nickDOTwiltonA ThtzDOTbiz> wrote in message
> news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..
> > Use the OleDdDataAdapte r, Connection and Command controls in winforms to
> > generate the strings that you require for your app. To manipulate

these

> > strings programmaticall y try using the stringbuilder class.
> >
> > "Chris" <xc*****@lineon e.net> wrote in message
> > news:OS******** ******@tk2msftn gp13.phx.gbl...
> > > Hi all,
> > >
> > > I wrote a cool little database program a while back, in VB6, and im > > > intending to rewrite it in .net.
> > >
> > > I am new(ish) to .net, but an old hand at VB5/6.
> > >
> > > In VB i would access the mdb file something like this.
> > >
> > > set db=database
> > > set db=opendatabase ("mydb.mdb")
> > > dim rec as recordset
> > > set rec= db.openrecordse t("select name form names")
> > >
> > > while rec.eof=false
> > > debug.write(rec !name)
> rec.movenext
> > > wend
> > >
> > >
> > > How do i do the same in .net, it seems to want me to set up these pages
> > ets,
> > > but i need to create queries and joins on the fly so data can be
> accessed
> > as
> > > the user requests.
> > >
> > > Ive looked in the help, and followed the tutorials, but i cant

seem

to

> be
> > > able to query the db properly, or even connect to it in the way

that

i

> > want.
> > >
> > > Thanks in advance
> > >
> > > Chris
> > >
> > >
> > >
> >
> >
>
>

[Ron Allen]

Chris,
It doesn't seem that difficult to me. In C# I'd write

void main() // or some other function called at startup.
{
string connStr = @"Provider=Micr osoft.Jet.OLEDB .4.0;Data
Source=C:\db.md b;Mode=Share Deny None;";
OleDbConnection db = new OleDbConnection (connStr)
OleDbCommand cmd = new OleDbCommand("S elect Name, Password FROM Users",
db);
_db.Open();
OleDbDataReader rdr = cmd.ExecuteRead er();
while (rdr.Read())
{
System.Diagnost ics.Debug.Write Line(rdr.GetStr ing(0));
System.Diagnost ics.Debug.Write Line(rdr.GetStr ing(1));
}
_db.Close(); // close the connection
}

Note that to use the db variable in other modules you will have to make it
public and specific to the module and pass the class it is in to those
programs. Also make sure that your main doesn't just return after writing
these as that will cause the program to exit. I do this by having my own
class for doing database manipulation. I pass in an open connection or a
database name/server nam (filename for OleDb) and then do all the
manipulation there.

You may want to visit microsoft.publi c.dotnet.framew ork.adonet as that
is dedicated to ADO.NET questions.

Also the book by David Sceppa "ADO.NET Core Reference" is quite good and
has a lot of examples in both C# and VB.NET

Ron Allen

"Chris" <xc*****@lineon e.net> wrote in message
news:u$******** ******@TK2MSFTN GP11.phx.gbl...

Sorry ron but that does nothing but throw erreors.

I think i am missing a consecpt here, or .NET has taken DB programing and
made it so trikey that no one can use it propperly.

All i wnat is this translated into .NET, ive just complied it and got it
running in VB6, took me 5mins. In fact it took me less time to write that
code than it did to write this message. Unlike 2+ days for .NET to do the
same thing and still no joy.

here is excatly what i wnat converted, i need the VAR names to remain if
possible.
db.mdb has one table (Users) with 2 collums, (Name, Password)
///
dim DB as Database ' i wnat to use the db everywher in the program so i
only want to open it once.

sub main()

set DB = opendatabase("C :\db.mdb") 'open DB

dim qry as string = "Select * from users;" 'set query
dim usr as recordset 'create an empty record set

set usr = db.openrecordse t(qry) ' populate record set

while usr.eof = false ' loop unless end of record set is reached
debug.writeline (usr!Name) 'dump name from
current record
debug.writeline (usr!Password) 'dump password from
current record
usr.movenext 'move to
next record
end while.

end sub
///

how can this be so diffacult in .NET !!!



"Ron Allen" <rallen@_nospam _src-us.com> wrote in message
news:ex******** ******@TK2MSFTN GP09.phx.gbl...

Chris,
Use
Do While myreader.Read ' assuming I've got the VB syntax for this
loop
Dim myVar AS string = myreader.GetStr ing(0) ' for a string at

the

first field returned
' also see GetOrdinal to lookup the column #
from the name
Dim myInt AS int =
myreader.GetInt 32(myreader.Get Ordinal("myFiel dName"))
Loop

Ron Allen
"Chris" <xc*****@lineon e.net> wrote in message
news:uL******** ******@TK2MSFTN GP09.phx.gbl...

Thanks Nick thats great, but how do i get at the data?

eg.

debug.writeline (myreader!name)

just throws an error. AAh i know what i wnnt, but not how to sintax it.
BTW, all the objects need to be new(ed) on the dims.

"Nick Wilton" <nickDOTwiltonA ThtzDOTbiz> wrote in message
news:%2******** ********@tk2msf tngp13.phx.gbl. ..
> Something like this:
>
> Dim mydbConnection As OleDb.OleDbConn ection
> mydbConnection. ConnectionStrin g = "c:\mydb.md b"
> mydbConnection. Open()
>
> Dim mydbCommand As OleDb.OleDbComm and
> mydbCommand.Con nection = mydbConnection
> mydbCommand.Com mandText = "SELECT * FROM MyTable"
>
> Dim myreader As oleDB.OleDbData Reader
>
> myreader = mydbCommand.Exe cuteReader
>
> You can now inspect the myreader object the same way as you did with

your

> recordset.
>
> "Chris" <xc*****@lineon e.net> wrote in message
> news:e5******** ******@tk2msftn gp13.phx.gbl...
> > Can you give a code example that does teh same as my code below

please.

> >
> >
> > "Nick Wilton" <nickDOTwiltonA ThtzDOTbiz> wrote in message
> > news:%2******** ********@TK2MSF TNGP09.phx.gbl. ..
> > > Use the OleDdDataAdapte r, Connection and Command controls in

winforms

> to
> > > generate the strings that you require for your app. To manipulate these
> > > strings programmaticall y try using the stringbuilder class.
> > >
> > > "Chris" <xc*****@lineon e.net> wrote in message
> > > news:OS******** ******@tk2msftn gp13.phx.gbl...
> > > > Hi all,
> > > >
> > > > I wrote a cool little database program a while back, in VB6, and

im

> > > > intending to rewrite it in .net.
> > > >
> > > > I am new(ish) to .net, but an old hand at VB5/6.
> > > >
> > > > In VB i would access the mdb file something like this.
> > > >
> > > > set db=database
> > > > set db=opendatabase ("mydb.mdb")
> > > > dim rec as recordset
> > > > set rec= db.openrecordse t("select name form names")
> > > >
> > > > while rec.eof=false
> > > > debug.write(rec !name)
> > rec.movenext
> > > > wend
> > > >
> > > >
> > > > How do i do the same in .net, it seems to want me to set up these > pages
> > > ets,
> > > > but i need to create queries and joins on the fly so data can

be > > accessed
> > > as
> > > > the user requests.
> > > >
> > > > Ive looked in the help, and followed the tutorials, but i cant

seem

to
> > be
> > > > able to query the db properly, or even connect to it in the

way that

i
> > > want.
> > > >
> > > > Thanks in advance
> > > >
> > > > Chris
> > > >
> > > >
> > > >
> > >
> > >
> >
> >
>
>

[Cor Ligthert]

Chris,

I am really stumbled, I made a sample exactly as yours however now in VBNet
way and you even did not look to it.

Cor