Visual Basic Discussion Boards

Re: Changing routing table

Dave Kreskowiak6-May-06 4:15

Dave Kreskowiak

6-May-06 4:15

Really, how much effort do you want to put into something so innocuous?

Dave Kreskowiak
Microsoft MVP - Visual Basic

Adding records in a datasheet form

mjackson115-May-06 3:13

mjackson11

5-May-06 3:13

This is in VB for Access, I don't know if it works the same in VB.NET.

I have a datasheet on a form who's datasource is a disconnected ADO recordset. I created the recordset in the form's open event method. It displays everything properly and I can delete/edit records but I adding them is broken. For example the datasheet last line is

ID SYMBOL DESCRIPTION
164 VM PJM OFF PEAK

When I go to line 165 and try to type in:

165 XXX TEST

It adds ten blank records to the dataset. Is there something I am missing about adding and editing record sets. Sorry but my prior experience is C++ financial so I don't know much about interfaces.

Thx

Mark Jackson

<----- Code here ----->

qStr = "SELECT Symbol, Legend FROM SymbolKey WHERE Symbol IS NOT NULL ORDER BY Symbol"
dbRS.Open qStr, dbConn, adOpenKeyset, adLockOptimistic

Set formRS = New ADODB.Recordset
formRS.Fields.Append "myID", adInteger, 8, adFldUpdatable
formRS.Fields.Append "Symbol", adChar, 10, adFldUpdatable
formRS.Fields.Append "Legend", adChar, 255, adFldUpdatable
formRS.Open , , adOpenDynamic, adLockOptimistic
i = 0
Do Until dbRS.EOF
formRS.AddNew
formRS.Fields("myID").Value = i
formRS.Fields("Symbol").Value = dbRS.Fields("Symbol").Value
formRS.Fields("Legend").Value = dbRS.Fields("Legend").Value
i = i + 1
dbRS.MoveNext
Loop
Set Me.Recordset = formRS
dbRS.Close
Set dbRS = Nothing

Re: Adding records in a datasheet form

Dave Kreskowiak5-May-06 5:43

Dave Kreskowiak

5-May-06 5:43

Access doesn't work anywhere near like VB.NET does...

This code is enumerating through a recordset, formRS, and creating a new record in the recordset for each and every existing record in the recordset!?!?!? Why?????

You'd be much better off on a board that supports Office products or Access. From what little code is here and your description, you wouldn't even need any code to do this in Access. Just create a new form that binds a result set from a query that returns the same data.

Dave Kreskowiak
Microsoft MVP - Visual Basic

Re: Adding records in a datasheet form

mjackson115-May-06 8:30

mjackson11

5-May-06 8:30

I will try to find a better board for it. This is just a single table db to test. In the real db, the record set will pull data about accounts, post it to a form where users can add/delete/change records. I don't want the changes the user makes to be saved anywhere. When the form is closed, the Recordset is read and results written to a file.

I can use temporary tables but I have had a lot of problems with Access crashing with multiple users in that instance.

Thx

Mark Jackson

DATAGRID

Member 28660305-May-06 2:53

Member 2866030

5-May-06 2:53

WHAT IS DATAGRID? EXPLAIN WITH SOME EXAMPLE PROGRAM

sdgsdfsdfsdfsdfsdfsdfsdfsdfsdfsdf

Re: DATAGRID

Dave Kreskowiak5-May-06 5:34

Dave Kreskowiak

5-May-06 5:34

First of all, STOP YELLING! You just gave the impression that you burst into a room, screamed a bunch of demands (with examples), and everyone in the room just stared at you in total silence.

A datagrid lets you view in table form, the data in a bound data source. DataGrid[^] class.

For examples, all you have to do is Google for "windows forms datagrid vb.net" and you'll come up with thousands upon thousands of hits.

Dave Kreskowiak
Microsoft MVP - Visual Basic

-- modified at 11:35 Friday 5th May, 2006

infromation transfer, very urgent??????????

Waimba5-May-06 2:46

Waimba

5-May-06 2:46

Can some please show me how to transfer informatiom from a collection of text boxes to a linked list node!

-- modified at 8:47 Friday 5th May, 2006

Re: infromation transfer, very urgent??????????

Dave Kreskowiak5-May-06 5:31

Dave Kreskowiak

5-May-06 5:31

Your question is really vague.

But, you'd have to get the value of each TextBox's Text property, do some validation and conversion of the data if needed, then assign those values to values in your linked list node, whatever that is.

Basically, we need a bunch more information to be able to tell you anything more.

Dave Kreskowiak
Microsoft MVP - Visual Basic

button property pls help

vipinpaliwal19805-May-06 1:37

vipinpaliwal1980

5-May-06 1:37

hi all,
i want to know what is the use of these button property
1.accessible description
2. accessible name
3. accessible role

vipin paliwal

Re: button property pls help

Dave Kreskowiak5-May-06 5:28

Dave Kreskowiak

5-May-06 5:28

Accessibility for People with Disabilities[^]

Providing Accessibility Information for Controls on a Windows Form[^]

Dave Kreskowiak
Microsoft MVP - Visual Basic

Flashing Minimized Form

ADY0075-May-06 1:03

ADY007

5-May-06 1:03

Hello,

I want to make a flashing minimized form. I am doing an IP messenger and I wish i can make like msn. When my friend sends me a message while my messenger is minimized .. the minimized form will begin flasing orange. How can i do that!!

Someone help me please

Adrian De Battista: .Net Programmer, Java Programmer and Web Designer.

Re: Flashing Minimized Form

Yulianto.5-May-06 1:24

Yulianto.

5-May-06 1:24

You can use FlashWindow. But I don't know whether you can use it with VB

<italic>Work hard, Work effectively.

Re: Flashing Minimized Form

Dave Kreskowiak5-May-06 5:22

Dave Kreskowiak

5-May-06 5:22

You can find the docs on FlashWindow here[^].

Create a Timer that fires every 1000 milliseconds or so. Start the timer only when the form is minimized (Resize event). In the Timer Tick event, check a flag to see if there is a reason to flash the window. If so, call FlashWindow like this:

Declare Auto Function FlashWindow Lib "user32" (ByVal hWnd As IntPtr, ByVal bInvert As Boolean) As Boolean
.
.
.
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
    If Me.WindowState = FormWindowState.Minimized Then
        Timer1.Interval = 1000
        Timer1.Start()
    Else
        Timer1.Stop()
    End If
End Sub
 
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    Static prevState As Boolean
 
    ' GetUsersAttention can be a Boolean flag somewhere or
    ' a method that returns a Boolean value...
    If GetUsersAttention Then
        prevState = FlashWindow( Me.Handle, Not prevState )
    End If
End Sub

Dave Kreskowiak
Microsoft MVP - Visual Basic

Re: Flashing Minimized Form

ADY0075-May-06 7:47

ADY007

5-May-06 7:47

Thank you very much!!! I love you Big Grin | :-D

Adrian De Battista: .Net Programmer, Java Programmer and Web Designer.

want a function

pptadam5-May-06 0:13

pptadam

5-May-06 0:13

in vb.6 we have Left(string, integer) and right(string, integer) functions
but vb.net don't have what can i do?

Re: want a function

Chatura Dilan5-May-06 0:23

Chatura Dilan

5-May-06 0:23

You have to use

Microsoft.VisualBasic.Left(string, integer)<br />
Microsoft.VisualBasic.Right(string, integer)

This is because
Left means WidowForm.Left
Right means WidowForm.Right
Smile | :)

Regards,

Chatura Dilan

Re: want a function

J4amieC5-May-06 0:59

J4amieC

5-May-06 0:59

Left can be achieved with myString.Substring(0,len)
Right you can do with myString.Substring(myString.Length - len,len)

Current blacklist
svmilky - Extremely rude | FeRtoll - Rude personal emails | ironstrike1 - Rude & Obnoxious behaviour

Re: want a function

Rizwan Bashir5-May-06 1:11

Rizwan Bashir

5-May-06 1:11

strings.Left(variable,len)
strings.right(...)

Rizwan Bashir

cannot grab data from ms access database into list view

penin4-May-06 23:46

penin

4-May-06 23:46

Hi..below is my code. when i run the code, i got error

" run-time error '3075': syntax error(missing operator) in query expression 'Detail.Room)=Console Room'.

and when i debug, it highlighted at Set rs = DBMain.OpenRecordset(sql1)

i'm using list view component, and will get the data after user choose the room name from combo box.

Hope fully anyone could help me here.... i need it urgently.. Thank you very much..........

Sub Form_Load()

lstVwDetail.ListItems.Clear

Set DBMain = DBEngine.OpenDatabase(App.Path & "\dbDetail.mdb")
sql1 = "SELECT * FROM Detail WHERE (Detail.Room)=" & frmLayout.cbLayout.Text & ""
Set rs = DBMain.OpenRecordset(sql1)

If rs.RecordCount < 1 Then

msg= MsgBox("No Record Found ", vbYesNo, "Not Found")

If msg= vbYes Then
Form1.Show

Else
Exit Sub
End If

Else
rs.MoveFirst

With lstVwDetail.ColumnHeaders
.Clear
.Add , , "Room", 1000
.Add , , "Hostname", 1000
.Add , , "Environment ", 6000

End With

Set ListItemAdd = lstVwDetail.ListItems.Add(, , lstVwDetail.ListItems.Count + 1)
ListItemAdd.SubItems(0) = rs(0)
ListItemAdd.SubItems(1) = rs!Room
ListItemAdd.SubItems(2) = rs!HostName
ListItemAdd.SubItems(3) = rs!Environment

End If

End Sub

Re: cannot grab data from ms access database into list view

Quecumber2565-May-06 2:33

Quecumber256

5-May-06 2:33

I think your problem is in your SQL statement for returning the recordset.

Try this:
sql1 = "SELECT * FROM DEtail WHERE (Detail.Room)= '" & frmLayout.cboLayout.Text & "';"

When Text parameters must be enclosed in single quotes.

Quecumber256

Re: cannot grab data from ms access database into list view

penin7-May-06 14:57

penin

7-May-06 14:57

Hi Quecumber256, thank you so much for your help. I already tried and it worked but, sadly i have problem with the statement :

Set ListItemAdd = lstVwDetail.ListItems.Add(, , lstVwDetail.ListItems.Count + 1)

'ListItemAdd.SubItems(0) = rs(0)
ListItemAdd.SubItems(1) = rs!Room
ListItemAdd.SubItems(2) = rs!HostName
'ListItemAdd.SubItems(3) = rs!Environment

when i put the quote for bold statement above, no error but the output is not correct. The output should be in table. Just like in Ms Access. Do u have suggestion on this. Actually i already try to use Data Grid with statement :

Sub Form_Load()

Set DBMain = DBEngine.OpenDatabase(App.Path & "\dbDetail.mdb")
sql1 = "SELECT * FROM DEtail WHERE (Detail.Room)= '" & frmLayout.cbLayout.Text & "';"
Set rs = DBMain.OpenRecordset(sql1)

Set DataGrid1.DataSource = rs

End Sub

.....but i got error Type mismatch for Set DataGrid1.DataSource = rs

Can anyone help me?

Thank you so much

Re: Done. Yeah! no errors!

penin7-May-06 16:33

penin

7-May-06 16:33

Done.

Printing problems

kassee4-May-06 23:29

kassee

4-May-06 23:29

looking some1 who can help me in printing reports in landscape(size A4) in vb6

Software estimation tool

kassee4-May-06 23:26