[nsbasic-ce] SQL WHERE
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
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
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
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
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 ^
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
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?
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?
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
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
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
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
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
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
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
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
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
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
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
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 -~--~~~~--~~--~--~---