[nsbasic-ce] SQL WHERE

2009-05-20 Thread EMERSON VIER
How I found the last name on the sample on TN15
I try

cmd=SELECT * FROM WHERE NameDB lastname =   tbLastName.Text  
showStatus cmd
Set r=db.Execute(cmd)
MsgBox  r  

But this not return the line.

EMERSON VIER


--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



[nsbasic-ce] Re: SQL WHERE

2009-05-21 Thread EMERSON VIER
I undested your information, but I need search the data on my database by SQL 
function WHERE or other.

Can you help me?

EMERSON VIER

--- In nsbasic...@yahoogroups.com, Harold Wood hwoody2w...@... wrote:

 the query looks good now. remember that nsbasic treats a record set as a 
 multidimensial array,
 with so you shoudl first look at the recordcount property fo r to determine 
 how many rows were returned then loop thru the columns to return the 
 individual fields.
  
 Dim recsBack
 dim recRead
 dim curRec
 dim Cols
  
 recsBack = r.RecordCount
  
 recRead = 1
  
 while recRead  recsback
   for Cols = 1 to r(recRead).Count Step 1
     msgbox r(recRead)(Cols)
   next
 RecRead = recRead + 1
 wend
  
  
 see if that helps.
 Woody
 --- On Thu, 5/21/09, EMERSON VIER emersonv...@... wrote:
 
 
 From: EMERSON VIER emersonv...@...
 Subject: [nsbasic-ce] Re: SQL WHERE
 To: nsbasic...@yahoogroups.com
 Date: Thursday, May 21, 2009, 12:07 PM
 
 
 
 
 
 
 
 
 Sorry I make mistake to write here I use this form
 
 cmd=SELECT * FROM NameDB WHERE lastname =   tbLastName.Text  
 showStatus cmd
 Set r=db.Execute( cmd)
 MsgBox  r  
 
 How I get the result for this action?
 
 I use this database NameDB sample
 
 FirstName LastName
 
 Joe Bob
 Henry Bill
 Tedy Herman
 
 Thx for all
 EMERSON VIER
 
 --- In nsbasic...@yahoogro ups.com, Harold Wood hwoody2wood@ ... wrote:
 
  you need a properly formatted query.
   
   
  select * from [table name goes here] where [column name goes here] = '  
  tbLastName.Text  '
  
  --- On Wed, 5/20/09, EMERSON VIER emersonvier@ ... wrote:
  
  
  From: EMERSON VIER emersonvier@ ...
  Subject: [nsbasic-ce] SQL WHERE
  To: nsbasic...@yahoogro ups.com
  Date: Wednesday, May 20, 2009, 10:16 PM
  
  
  
  
  
  
  
  
  How I found the last name on the sample on TN15
  I try
  
  cmd=SELECT * FROM WHERE NameDB lastname =   tbLastName.Text  
  showStatus cmd
  Set r=db.Execute( cmd)
  MsgBox  r  
  
  But this not return the line.
  
  EMERSON VIER
 




--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



[nsbasic-ce] How get Status for Field

2009-05-24 Thread EMERSON VIER
How I get the status for TextBox I need Know Show or Hide

EMERSON VIER


--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



[nsbasic-ce] SQL SELECT WHERE

2009-05-25 Thread EMERSON VIER
If a use this

Value1 = 19

Set records=db.Execute(SELECT * FROM People_DB WHERE Age = Value1 )

Returt the Scripting Error SQLite3COM - Line XXX, char O no such column: 
Value1

If a use this

Set records=db.Execute(SELECT * FROM People_DB WHERE Age = '19' )

Work very well

But I need use the variable on place '19' because this value I need get from 
TextBox

EMERSON VIER


--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



[nsbasic-ce] Re: SQL SELECT WHERE

2009-05-26 Thread EMERSON VIER
I know abou error mensage, but I need the solution for this, my column is Age 
and I need seach value for this when I make this

Set records=db.Execute(SELECT * FROM People_DB WHERE Age = '19' )

Work very well but I need sustitute the '19' to on variable.

Thx for all

EMERSON VIER



--- In nsbasic...@yahoogroups.com, Harold Wood  Meyuni Gani hwoody2w...@... 
wrote:

 You are encloseing value1 within quotes, so what gets passed to the sql 
 engine is the name value1 which is interpeted as the name of a column.  What 
 you need to have is select * from tablename where columnname = + value1 
 This way the engine gets passed the query along with the value in value1.
 
 Harold Wood  Meyuni Gani
 
 -Original Message-
 From: EMERSON VIER emersonv...@...
 Sent: Monday, May 25, 2009 7:50 PM
 To: nsbasic...@yahoogroups.com
 Subject: [nsbasic-ce] SQL SELECT WHERE
 
 
 
 If a use this
 
  Value1 = 19
 
  Set records=db.Execute(SELECT * FROM People_DB WHERE Age = Value1 )
 
  Returt the Scripting Error SQLite3COM - Line XXX, char O no such column: 
 Value1
 
  If a use this
 
  Set records=db.Execute(SELECT * FROM People_DB WHERE Age = '19' )
 
  Work very well
 
  But I need use the variable on place '19' because this value I need get from 
 TextBox
 
  EMERSON VIER




--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



[nsbasic-ce] I need the Power Operator ^

2009-06-01 Thread EMERSON VIER
I need calculate the value C = A^B but the ^ not work how i do this?

EMERSON VIER






--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



[nsbasic-ce] On Emulator work On device not

2009-06-13 Thread EMERSON VIER
I test my program on Windows Mobile 6 Professional Emulator and USA Windows 
Mobile 6.1.4 Professional 480x800 Emulator and work very well.

I install on my HTC Touch HD, when I test show Scripting Error Microsoft 
VBScript runtime error - line 162, char 0 Type mismatch: 'records(...)'

code ine is  

tbI220.Text = records(1)(10)

I use the 8.0.2 version

EMERSON VIER
 


--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



[nsbasic-ce] Is app open on device?

2009-06-23 Thread EMERSON VIER
I use the F6 to install file on emulator and device, I recive the message Is 
app open on device? Cannot copy to: , but my program is not open...

To work I need use the F5 to install the files.

EMERSON VIER


--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



[nsbasic-ce] Re: Is app open on device?

2009-06-24 Thread EMERSON VIER
I try test my program on SDCARD, I back to device and work.

EMERSON VIER


--- In nsbasic...@yahoogroups.com, George Henne g...@... wrote:

 We give this message when the copy to the device fails. The most likely
 reason is that the app is open on the device, but it could also happen
 if the directory is not there.
 
 Are you installing to the Device or Storage Card? (You need to do Device.)
 
 Unfortunately, there isn't much information that comes back to tell us
 why it failed.
 
 I use the F6 to install file on emulator and device, I recive the
 message Is app open on device? Cannot copy to: , but my
 program is not open...
 
 To work I need use the F5 to install the files.
 
 EMERSON VIER
 
 
 
 
 
 Yahoo! Groups Links
 
 
 




--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



[nsbasic-ce] How send email on HTML format

2009-06-27 Thread EMERSON VIER
I need send the email on HTML format I try include this text on body email

html

  head
  titleThis my First Web page/title
  /head

  body
  pHurrah! This my First Web page./p
  /body

/html

But I recive the same format.

EMERSON VIER



--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



[nsbasic-ce] Re: What the best way to show picture

2009-07-10 Thread EMERSON VIER
Thx George, Work very well.

Now I try use the event Click on my projetc I had four form on the Default 
form this event work, but on other form not work...

EMERSON VIER

--- In nsbasic...@yahoogroups.com, George Henne g...@... wrote:

 Use the PictureBox object.
 
 To display an image, set the Picture property to the pathname to your image.
 http://www.nsbasic.com/ce/info/technotes/TN13.htm
 
 George Henne 
 NS BASIC Corporation
 http://www.nsbasic.com 
 
 What the best way to show picture, I read the technoteS but I not
 undested, I need click button and show on picture..
 
 EMERSON VIER
 
 
 
 
 
 Yahoo! Groups Links
 
 
 




--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



[nsbasic-ce] Re: Sending Mail

2009-07-12 Thread EMERSON VIER
Please send again the your link from microsoft.

Yesterday I make research about tmail, I tested this parameters, not worked.

I try send mail to CC and BCC not worked too.

http://www.cjcraft.com/blog/2008/10/02/HowToOpenAMailInInboxUsingPocketOutlook.aspx


 How to open a mail in Inbox using Pocket Outlook

I need to open a new email message in Pocket Outlook today. Keep in mind that's 
different from just programmatically sending an email from my application.

Here's how to programmatically send an email from your application:

   1: Microsoft.WindowsMobile.PocketOutlook.EmailMessage email = new 
EmailMessage();

   2: email.From = From;

   3: email.BodyText = BodyText;

   4: email.To = To;

   5: email.Subject = Subject;

   6: email.Send(AccountName);

 Here's how to programmatically create a new mail message in Pocket Outlook and 
more:

[Source: Open a Specific Email Account in Pocket Outlook? - WM Experts]

* To open inbox for MyMail:
  o tmail.exe -service MyMail
* To additionally launch a new message with no recipient for sending:
  o tmail.exe -service MyMail -to 
* To have the new message pre-addressed:
  o tmail.exe -service MyMail -to nob...@nowhere.com
* To add a cc (copy to):
  o tmail.exe -service MyMail -to nob...@nowhere.com -cc 
someb...@somewhere.com
* To add a bcc (blind copy):
  o tmail.exe -service MyMail -to nob...@nowhere.com -bcc 
someb...@somewhere.com
* To have the new message pre-addressed to multiple addresses:
  o tmail.exe -service MyMail -to 
nob...@nowhere.com;someb...@somewhere.com;that...@thatplace.com
* To additionally add the subject line Call Me Tonight:
  o tmail.exe -service MyMail -to nob...@nowhere.com -subject Call Me 
Tonight
* To additionally add a message in the body:
  o tmail.exe -service MyMail -to nob...@nowhere.com -subject Call Me 
Tonight -body at 555-1212
* To attach the file Recipe.xls in the My Documents folder:
  o tmail.exe -service MyMail -to nob...@nowhere.com -subject Call Me 
Tonight -body at 555-1212 -attach \My Documents\Recipe.xls



Yes I need help for this.

EMERSON VIER

--- In nsbasic...@yahoogroups.com, George Henne g...@... wrote:

 I can't find documentation for tmail anywhere on the Microsoft site,
 except for this:
 http://social.msdn.microsoft.com/Forums/en-US/windowsmobiledev/thread/
 17b05c07-1423-4c1a-add1-849352d3b6a8
 
 Probably nowhere but here are some:
 
 -service service name (You're choosing the service You want to use:
 SMS, MMS etc.)
 -bcc url or number
 -cc url or number
 -to url or number
 -subject text
 -body text
 -attach file path (attaches the file when using e-mail service)
 -RunInBKG (runs tmail.exe in background, used in \Windows\Startup)
 -sync (opens an Active Sync to synchronize the mail)
 -open folder name (opens tmail.exe in selected folder, like Inbox,
 OutBox etc.)
 
 I know that there's also a -transport parameter but don't know what's it for.
 There should be also some params to send a message prepared from first 7
 parameters listed here.
 
 Let me know if this helps - the tech note should be updated.
 
 I use the Technote 32 for send mail, OK.
 
 But not send the attach FILE
 
 I use this code
 
 eTo=mailto:;  info© n...
 eSubject=?subject=  Email sent from NS Basic/CE on a 2002 device!
 eBody=body=  Hello, NS Basic people!
 eAttachment=attach=  benchmark.nsb
 shellExecute open,tmail.exe, eTo  eSubject  eBody
 
 I trys this too
 
 shellExecute open,tmail.exe, eTo  eSubject  eBody  eAttachment
 
 EMERSON VIER
 
 
 
 
 
 
 Yahoo! Groups Links
 
 
 




--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



[nsbasic-ce] Re: Grid click

2009-07-14 Thread EMERSON VIER
George, You have news about this?

Regards,

Emerson Vier


--- In nsbasic...@yahoogroups.com, EMERSON VIER emersonv...@... wrote:

 I try again and events click only work on Default Form, if I try this on 
 other Form not work, I not get any error messages
 
 EMERSON VIER
 
 --- In nsbasic...@yahoogroups.com, George Henne gh@ wrote:
 
  There is not enough info here to give much help.
  
  Have you added a grid object named grid to your project?
  
  Do you get any error messages?
  
  I use the sample grid.nsb and includ the code
  
  Sub grid_Click
 
 Dim Linha
 Dim Coluna 
 Coluna = grid.col
 Linha = grid.row
 MsgBox Grid.TextMatrix(Linha,Coluna)
 
  End Sub
  
  This work very well.
  
  I include this code in other project, this not work, not any 
  information;...
  
  EMERSON VIER
  
  
  
  
  
  
  
  Yahoo! Groups Links
  
  
  
 




--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



RE: [nsbasic-ce] How get Form name Show

2009-07-18 Thread EMERSON VIER
How I get current Status?

-Original Message-
From: George Henne g...@nsbasic.com
Sent: sábado, 18 de julho de 2009 07:29
To: nsbasic...@yahoogroups.com nsbasic...@yahoogroups.com
Subject: Re: [nsbasic-ce] How get Form name Show

 
I'm not sure what you are asking here.

 If you want to be able to check that status of a particular form, it
 might be easiest to keep a global variable for each form with its
 current status.

 My app has many form , How I get the form is Enable or Visible?
 
 EMERSON VIER
 
 
 
 
 
 Yahoo! Groups Links
 
 
 


 Messages in this topic  (2)  

[The entire original message is not included]
--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



RE: [nsbasic-ce] How get Form name Show

2009-07-18 Thread EMERSON VIER
How I get current Status?

-Original Message-
From: George Henne g...@nsbasic.com
Sent: sábado, 18 de julho de 2009 07:29
To: nsbasic...@yahoogroups.com nsbasic...@yahoogroups.com
Subject: Re: [nsbasic-ce] How get Form name Show

 
I'm not sure what you are asking here.

 If you want to be able to check that status of a particular form, it
 might be easiest to keep a global variable for each form with its
 current status.

 My app has many form , How I get the form is Enable or Visible?
 
 EMERSON VIER
 
 
 
 
 
 Yahoo! Groups Links
 
 
 


 Messages in this topic  (2)  

[The entire original message is not included]
--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



[nsbasic-ce] Re: Grid click

2009-07-18 Thread EMERSON VIER
I use the AddObject

Sub Form1_Load()

  On Error resume next
AddObject grid,grid,0,0,240,150
If err Then 
   MsgBox Grid control not installed. Please check the ReadMe file's section 
on Install Device Components for more information.,,Grid
   Bye
End If
On Error Goto 0


   grid.cols=3
   grid.rows=4

  grid.TextMatrix(0, 0) = Kenny
  grid.TextMatrix(1, 0) = Carmen
  grid.TextMatrix(2, 0) = Kyle
  grid.TextMatrix(3, 0) = Eric
  
  grid.TextMatrix(0, 1) = Grossman
  grid.TextMatrix(1, 1) = Crabtree
  grid.TextMatrix(2, 1) = Garrison
  grid.TextMatrix(3, 1) = Cartman
  
  grid.TextMatrix(0, 2) = Denver
  grid.TextMatrix(1, 2) = Boulder
  grid.TextMatrix(2, 2) = South Park
  grid.TextMatrix(3, 2) = Lakeview

   
End Sub

Sub grid_Click
   
   MsgBox grid
   
  
End Sub


Sub Form2_Load()

  On Error resume next
   AddObject grid,grid1,0,0,240,150
   If err Then 
  MsgBox Grid control not installed. Please check the ReadMe file's 
section on Install Device Components for more information.,,Grid
  Bye
   End If
   On Error Goto 0


   grid1.cols=3
   grid1.rows=4

  
  grid1.TextMatrix(0, 0) = 1Kenny
  grid1.TextMatrix(1, 0) = 1Carmen
  grid1.TextMatrix(2, 0) = 1Kyle
  grid1.TextMatrix(3, 0) = 1Eric
  
  grid1.TextMatrix(0, 1) = 1Grossman
  grid1.TextMatrix(1, 1) = 1Crabtree
  grid1.TextMatrix(2, 1) = 1Garrison
  grid1.TextMatrix(3, 1) = 1Cartman
  
  grid1.TextMatrix(0, 2) = 1Denver
  grid1.TextMatrix(1, 2) = 1Boulder
  grid1.TextMatrix(2, 2) = 1South Park
  grid1.TextMatrix(3, 2) = 1Lakeview
  
   
End Sub

Sub grid1_Click
  
  MsgBox grid1
 
End Sub

Sub CommandButton1_Click

   Form1.Hide
   Form2_Show

End Sub

--- In nsbasic...@yahoogroups.com, George Henne g...@... wrote:

 How are you creating the grid? Are you using AddObject in your code, or
 is it being created as part of your form?
 
 I try again and events click only work on Default Form, if I try this
 on other Form not work, I not get any error messages
 
 EMERSON VIER
 
 --- In nsbasic...@yahoogroups.com, George Henne gh@ wrote:
 
  There is not enough info here to give much help.
  
  Have you added a grid object named grid to your project?
  
  Do you get any error messages?
  
  I use the sample grid.nsb and includ the code
  
  Sub grid_Click
 
 Dim Linha
 Dim Coluna 
 Coluna = grid.col
 Linha = grid.row
 MsgBox Grid.TextMatrix(Linha,Coluna)
 
  End Sub
  
  This work very well.
  
  I include this code in other project, this not work, not any
 information;...
  
  EMERSON VIER
  
  
  
  
  
  
  
  Yahoo! Groups Links
  
  
  
 
 
 
 
 
 
 
 Yahoo! Groups Links
 
 
 




--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



RE: [nsbasic-ce] Re: Grid click

2009-07-19 Thread EMERSON VIER
The problem, is grid_click only work on default form
Emerson Vier

-Original Message-
From: rmrsoft a...@rmrsoft.com
Sent: domingo, 19 de julho de 2009 09:58
To: nsbasic...@yahoogroups.com
Subject: [nsbasic-ce] Re: Grid click

 
I don't have much experience of multiple forms, but if you want multiple grids 
I find it easier to put them both on the same Form and then use the MOVE 
command to decide which one is 'live'

 So you get:

 AddObject grid,grid,9000,0,240,150
 AddObject grid,grid1,9000,0,240,150

 Then to use the first Grid use

 grid1.Move 9000
 grid.move 0

 And to switch to the second grid

 grid.Move 9000
 grid1.move 0

 Cheers

 Al

 --- In nsbasic...@yahoogroups.com, EMERSON VIER emersonv...@... wrote:
 
  I use the AddObject
 
  Sub Form1_Load()
 
  On Error resume next
  AddObject grid,grid,0,0,240,150
  If err Then
  MsgBox Grid control not installed. Please check the ReadMe file's section 
  on Install Device Components for more information.,,Grid
  Bye
  End If
  On Error Goto 0
 
 
  grid.cols=3
  grid.rows=4
 
  grid.TextMatrix(0, 0) = Kenny
  grid.TextMatrix(1, 0) = Carmen
  grid.TextMatrix(2, 0) = Kyle
  grid.TextMatrix(3, 0) = Eric
 g

[The entire original message is not included]
--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



RE: [nsbasic-ce] Re: Grid click

2009-07-19 Thread EMERSON VIER
The problem, is grid_click only work on default form
Emerson Vier

-Original Message-
From: rmrsoft a...@rmrsoft.com
Sent: domingo, 19 de julho de 2009 09:58
To: nsbasic...@yahoogroups.com
Subject: [nsbasic-ce] Re: Grid click

 
I don't have much experience of multiple forms, but if you want multiple grids 
I find it easier to put them both on the same Form and then use the MOVE 
command to decide which one is 'live'

 So you get:

 AddObject grid,grid,9000,0,240,150
 AddObject grid,grid1,9000,0,240,150

 Then to use the first Grid use

 grid1.Move 9000
 grid.move 0

 And to switch to the second grid

 grid.Move 9000
 grid1.move 0

 Cheers

 Al

 --- In nsbasic...@yahoogroups.com, EMERSON VIER emersonv...@... wrote:
 
  I use the AddObject
 
  Sub Form1_Load()
 
  On Error resume next
  AddObject grid,grid,0,0,240,150
  If err Then
  MsgBox Grid control not installed. Please check the ReadMe file's section 
  on Install Device Components for more information.,,Grid
  Bye
  End If
  On Error Goto 0
 
 
  grid.cols=3
  grid.rows=4
 
  grid.TextMatrix(0, 0) = Kenny
  grid.TextMatrix(1, 0) = Carmen
  grid.TextMatrix(2, 0) = Kyle
  grid.TextMatrix(3, 0) = Eric
 g

[The entire original message is not included]
--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---



[nsbasic-ce] Re: Grid click

2009-07-28 Thread EMERSON VIER
OK now the event _Click work on two forms, now I will make test on my project.

Why this not work when I use the AddObject??

Why I not see the properties from the this object? 


Thx for you help.

EMERSON VIER

--- In nsbasic...@yahoogroups.com, George Henne g...@... wrote:

 Try again, this time creating the form with the Grid on it, not created
 in your own code with AddObject.
 
 This is a Code
 
 ShowOKButton True 'Set Close button to OK
 
 Sub Form1_Load()
AddObject grid,grid,0,10,240,100
grid.cols=3
grid.rows=4
grid.TextMatrix(0, 0) = Kenny
   grid.TextMatrix(1, 0) = Carmen
   grid.TextMatrix(2, 0) = Kyle
   grid.TextMatrix(3, 0) = Eric
   
   grid.TextMatrix(0, 1) = Grossman
   grid.TextMatrix(1, 1) = Crabtree
   grid.TextMatrix(2, 1) = Garrison
   grid.TextMatrix(3, 1) = Cartman
   
   grid.TextMatrix(0, 2) = Denver
   grid.TextMatrix(1, 2) = Boulder
   grid.TextMatrix(2, 2) = South Park
   grid.TextMatrix(3, 2) = Lakeview

 End Sub
 
 
 Sub CommandButton1_Click
Form1_Hide
Form2_Show
 End Sub
 
 Sub grid_Click
MsgBox grid
 End Sub
 
 Sub Form2_Load()
AddObject grid,grid1,0,0,240,150
grid1.cols=3
grid1.rows=4
grid1.TextMatrix(0, 0) = 1Kenny
   grid1.TextMatrix(1, 0) = 1Carmen
   grid1.TextMatrix(2, 0) = 1Kyle
   grid1.TextMatrix(3, 0) = 1Eric
   
   grid1.TextMatrix(0, 1) = 1Grossman
   grid1.TextMatrix(1, 1) = 1Crabtree
   grid1.TextMatrix(2, 1) = 1Garrison
   grid1.TextMatrix(3, 1) = 1Cartman
   
   grid1.TextMatrix(0, 2) = 1Denver
   grid1.TextMatrix(1, 2) = 1Boulder
   grid1.TextMatrix(2, 2) = 1South Park
   grid1.TextMatrix(3, 2) = 1Lakeview
 End Sub
 
 Sub grid1_Click
 MsgBox grid1
 End Sub
 '*** Begin Generated Code ***
 
 
 Form1_Show 'Default Form
 
 Dim Form1_Temp
 Sub Form1_Show
On Error Resume Next
 
UpdateScreen
 
If IsEmpty(Form1_Temp) Then
   AddObject Frame, Form1_Form, 0, 0, Output.Width, Output.Height
   Form1_Form.Visible = False
   Form1_Form.BackColor = 12632256
   AddObject PictureBox, Form1, 0, 0, 0, 0, Form1_Form
   Form1.BorderStyle = 0
   Form1.Move 0, 0, Form1_Form.Width * 15, Form1_Form.Height * 15
   Set Form1_Temp = Form1
   Form1_Form.Caption = Form1

   AddObject CommandButton, CommandButton1, 76, 184, 108, 21,
 Form1_Form
   CommandButton1.Caption = Goto Form2
   CommandButton1.FontSize =  8.25
   CommandButton1.BackColor = 12632256
   '
End If
On Error Goto 0
Form1_Form.Visible = True
callIfExists(Form1_Load)
 End Sub  'Form1_Show
 
 Sub Form1_Hide
If IsEmpty(Form1_Temp) Then
   Err.Raise 44000, , Form not loaded
   Exit Sub
End If
 
Form1_Form.Visible = False
callIfExists(Form1_Unload)
 End Sub  'Form1_Hide
 Dim Form2_Temp
 Sub Form2_Show
On Error Resume Next
 
UpdateScreen
 
If IsEmpty(Form2_Temp) Then
   AddObject Frame, Form2_Form, 0, 0, Output.Width, Output.Height
   Form2_Form.Visible = False
   Form2_Form.BackColor = 12632256
   AddObject PictureBox, Form2, 0, 0, 0, 0, Form2_Form
   Form2.BorderStyle = 0
   Form2.Move 0, 0, Form2_Form.Width * 15, Form2_Form.Height * 15
   Set Form2_Temp = Form2
   Form2_Form.Caption = Form2

End If
On Error Goto 0
Form2_Form.Visible = True
callIfExists(Form2_Load)
 End Sub  'Form2_Show
 
 Sub Form2_Hide
If IsEmpty(Form2_Temp) Then
   Err.Raise 44000, , Form not loaded
   Exit Sub
End If
 
Form2_Form.Visible = False
callIfExists(Form2_Unload)
 End Sub  'Form2_Hide
 
 Sub CallIfExists(theSub)
 Dim s
If ScriptEngineMajorVersion  5 Then
   Execute(On Error Resume Next:theSub) 'attempt to execute it
Else
   On Error Resume Next
   Set s = GetRef(theSub)
   If err.Number  0 Then Exit Sub 'it does not exist
   On Error GoTo 0
   Execute (theSub) 'execute it
End If
 End Sub
 
 '*** End Generated Code ***
 
 --- In nsbasic...@yahoogroups.com, Bob Katayama bkatayama@ wrote:
 
  Save the nsb file as a txt file and you can see the generated code once you
  open the txt file in a text reader.
  
   
  
  Bob
  
   
  
  From: nsbasic...@yahoogroups.com [mailto:nsbasic...@yahoogroups.com] On
  Behalf Of EMERSON VIER
  Sent: Sunday, July 26, 2009 5:45 PM
  To: nsbasic...@yahoogroups.com
  Subject: [nsbasic-ce] Re: Grid click
  
   
  

  
  Sorry but I do not understand your reply
  
  EMERSON VIER
  
  --- In nsbasic...@yahoogroups.com mailto:nsbasic-ce%40yahoogroups.com ,
  George Henne gh@ wrote:
  
   Have a look to how the generated code does this. Create a form with a 
   grid on it, save it as txt file, then open in Notepad.
   
   Sent from my iPhone
   
   On Jul 19, 2009, at 2:06 PM, EMERSON VIER emersonvier@ 
   wrote:
   
   
   
The problem, is grid_click only work on default form
Emerson Vier
   
From: rmrsoft alan@
Sent: domingo, 19 de julho de 2009 09:58
To: nsbasic...@yahoogroups.com

Res: [nsbasic-ce] On Emulator work On device not

2009-06-14 Thread EMERSON VIER - YAHOO
I think found the problem, I use the emulator on default (English) and my Touch 
HD I change regional settings to Portugues(Brazil) and this change No. Of 
decimal places from . to , when I make

Set records=db.Execute(SELECT * FROM WMOtb WHERE CV =  cbCV.Text  and 
Polos =  cbPolos.Text  )

The recors not recive any result on next step 

tbI220.Text = records(1)(10)

Show the last error.

EMERSON VIER


 





De: George Henne g...@nsbasic.com
Para: nsbasic...@yahoogroups.com nsbasic...@yahoogroups.com
Enviadas: Domingo, 14 de Junho de 2009 7:19:21
Assunto: Re: [nsbasic-ce] On Emulator work On device not





Can you make the shortest program which reproduces this?

I test my program on Windows Mobile 6 Professional Emulator and USA
Windows Mobile 6.1.4 Professional 480x800 Emulator and work very well.

I install on my HTC Touch HD, when I test show Scripting Error
Microsoft VBScript runtime error - line 162, char 0 Type mismatch:
'records(.. .)'

code ine is 

tbI220.Text = records(1)(10)

I use the 8.0.2 version

EMERSON VIER
 



--- - - ---

Yahoo! Groups Links





   
--~--~-~--~~~---~--~~
You received this message because you are subscribed to the Google Groups 
nsb-ce group.
To post to this group, send email to nsb-ce@googlegroups.com
To unsubscribe from this group, send email to 
nsb-ce+unsubscr...@googlegroups.com
For more options, visit this group at 
http://groups.google.com/group/nsb-ce?hl=en
-~--~~~~--~~--~--~---