|
Yes I have already removed the ' from the column names. I removed the spaces also. But I am still getting the error "Invalid column name". I only get the error for the fields I put letters in. I don't get the error for the numeric fields. Again, when I enter numbers in all of the fields, the insert works fine. The data type is set to VARCHAR for all of the columns so the field should accept letters also. I don't know wha the problem is. Here is my code as modified from the previous post:
Dim myConnection As New SqlClient.SqlConnection
myConnection.ConnectionString = "Data Source=S10615-10\SQLEXPRESS;InitialCatalog=Assessment;Integrated Security=SSPI;"
Dim myCommand As SqlClient.SqlCommand
Dim strSQL As String
myConnection.Open()
strSQL = "INSERT INTO AssessmentPage1 (ClientName, DOB, MedicalRecords, MedicaidNumber, ConsumersName, MedicaidNumber1, ConsumersID, Clinicians, ParentsName, Address, Clinicians1, PhoneNumbers, DateofReferral, DateofAssessment, SchoolName, IdentifyingInformation, PresentingProblems, ReferralInformation) VALUES(" & TextBox1.Text & "," & TextBox2.Text & "," & TextBox3.Text & "," & TextBox4.Text & "," & TextBox5.Text & "," & TextBox6.Text & "," & TextBox7.Text & "," & TextBox8.Text & "," & TextBox9.Text & "," & TextBox10.Text & "," & TextBox11.Text & "," & TextBox12.Text & "," & TextBox13.Text & "," & TextBox14.Text & "," & TextBox15.Text & "," & TextBox16.Text & "," & TextBox17.Text & "," & TextBox18.Text & ")"
myCommand = New SqlClient.SqlCommand(strSQL, myConnection)
myCommand.ExecuteNonQuery()
myConnection.Close()
myCommand.Dispose()
myConnection.Dispose()
|
|
|
|
|
Your insert statement is not correct. For example:
VALUES(" & TextBox1.Text & "," & TextBox2.Text & "...
If the value of TextBox1.Text is A and TextBox2.Text is B, this will give:
VALUES(A, B...
So, the SQL query goes looking for a column called A and a column called B, which don't exist so the query fails.
What you want is:
VALUES('A', 'B'...
Note the apostrophes.
As other people have pointed out, string concatenation is simple and easy but it is better to use parameterised queries for a number of reasons, one of which is that you don't have to worry about where to put the apostrophes.
|
|
|
|
|
Experts,
I have an application which takes up the whole screen (15 inches) is there any way that if i take the app on to say a smaller screen can i get the program to find out the size and basically zoom out so the application fits nicely onto the screen? (Ihaven't yet tested the app on another screen yet but am guessing that it won't fit)
Thus the same with a 17+ screen i would want the app to zoom in slightly.
Can this be done or is there any surgestions?
Many thanks
Dan
|
|
|
|
|
It is nothing to do with screen size in inches. It has all to do with the resolution e.g. 1024x768, 1280x1024, 2560x1600 etc.etc.
In vb.net, you can obtain the current screen resolution from the My.Computer.Screen , it has various things under this depending on what exactly you want to know about the display properties.
Also, if you using Anchoring and Docking of your controls in your form, when you resize the form, they will stay relative to each other in terms of size and positioning.
Dave
Don't forget to rate messages!Find Me On: Web| Facebook| Twitter| LinkedInWaving? dave.m.auld[at]googlewave.com
modified on Sunday, March 21, 2010 9:34 AM
|
|
|
|
|
Is there any way that i can get the current screen size and alter it automatically, e.g the screen size i am currently working on is 1280 by 800 pixels. If for example someone uses this program has a reolution of 1024 by 768 pixels can i alter the screen size for my program and whe they exit the program the pixels are returned to what they were at the start??
How would i go about doing this?
|
|
|
|
|
Try this...
Public Function ScreenResolution() As String
Dim iWidth as integer, iHeight as Integer
iWidth = Screen.Width \ Screen.TwipsPerPixelX
iHeight = Screen.Height \ Screen.TwipsPerPixelY
ScreenResolution = iWidth & " X " & iHeight
End Function
or
Public Function ScreenResolution() As String
Dim intX As Integer = Screen.PrimaryScreen.Bounds.Width
Dim intY As Integer = Screen.PrimaryScreen.Bounds.Height
Return intX & " X " & intY
End Function
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
|
|
|
|
|
Don't see why I deserved a 1 for that, it is just a way of determining the screen res.
Useful if you are trying to implement on different monitors.
Hey ho, can't please some people.
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
|
|
|
|
|
I'm guessing it's because you didn't answer the question that he asked. He didn't ask how to determine the screen size, he asked how to set the screen size.
|
|
|
|
|
This is what happens when you try to help on a sunday afternoon with the footy on the telly.
Still, he shouldn't try to set the resolution.
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
|
|
|
|
|
Did you make a response and then edit it completely? My email notifications tell me so!
Do not think about changing the users resolution to fit your application, that is bad practice, and you would soon alienate your user base.
a) The users hardware may be restricted to a given resolution, e.g. on a laptop/netbook etc.
b) The user may have disabilities that require them to use a particular resolution.
So, don't think about it.
Design you application at a 'general' resolution, and as i say use docking/anchoring to keep the layout proportional regardless of the true resolution.
|
|
|
|
|
daveauld wrote: Did you make a response and then edit it completely?
Yes i think i did by accident. I was looking at this and posted a message through my phone. I then checked it out when i got home on my computer. I am now going to test the app on a bigger screen that i managed to borrow and think that what you said about the disabilites and hardware is a good point. I was just concerned that because my form in vb.net covers most of the 15 inch screen i didn't want it to look horrible on a 13 inch screen, thus the screen resolution option.
Thanks for the suggestions and sorry for the email notification.
|
|
|
|
|
I find the problem the other way round.
I design on my laptop (1920x1200) primarily and my home pc (2560x1600). As you can see these resolutions are are bigger than the average joe's. They look fine on these, but when i run them on things with smaller resolution, i always find they look terrible.
Nobody said it would be easy! I tend to start at an 800x600 or 1024x768 window size, depending on what i am doing, and see how they look.
|
|
|
|
|
I just tried the program on the 17 inch and it has done what i thought it would and it is basically to far "zoomed in" I just tried to dock the items however it messes up the order i have them in. What is the best way to dock items?
|
|
|
|
|
Getting a form to behave reasonably at different screen resolutions can be tricky, I use a combination of docked panels and anchored controls. Pick the control to dock as fill, usually a list control. You also need to be aware of the z order of the controls when docking (bring to front and send to back) as these will seriously screw with your layout.
Design for the smallest reasonable screens resolution, don't force full screen, let the user do that.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
I was hoping if anyone can help me with parallel port interfacing using Visual Basic, I have done some research on the internet and found a few good sites. However since I don't know much about Visual Basic I was wondering if anyone can help me get started with it. Firstly I am going to try to communicate through the parallel port to light up a few LEDs, anyone know how to do this? And also does anyone know how to start a normal 3v DC Motor using Visual Basic programming? Your help will be much appreciated
|
|
|
|
|
Hi,
PC ports are dealing with information, not power. They can't supply enough power to directly drive a motor or a lamp, a LED would be fine though.
Parallel port isn't extremely easy, as it is a shared resource, and .NET does not provide a class for it.
It is much easier to use a serial port; see the SerialPort class (since .NET 2.0). The typical serial port has 2 data lines, and some 6 control lines (some inputs, some outputs). The latter are the easiest to use, just hook up an LED (with appropriate series resistor, say 1000 ohm), and start setting the control outputs either high or low, using properties such as DtrEnable and RtsEnable.
BTW: there are some articles here on CP about the subject.
|
|
|
|
|
Hi,
so can the pc port not send a signal to the motor in the same way it does to the LEDs. In addition I have looked on the internet and found some articles which use DLL files such as inpout.dll so I don't think you need a class for it. As this is part of my project we have already built the hardware based on the parallel port so hopefully I can find some info on that. Is there anything you advise or suggest on interfacing parallel port? Also is there another way you would recommend to start up the motor using programming?
|
|
|
|
|
Every PC port can send a signal, none of them can provide hundreds of milliamps to drive anything. A LED is the maximum load you should apply; for heavier loads, you need electronics and/or relays. If you try nonetheless, you will probably fry your port. Beware of starting currents, they are even higher as the steady-state current. Furthermore, most motors will require a higher voltage, maybe 12 Volt or more. That too is beyond the capabilities of most ports.
Check the article referred to by Lloyd (which deals with LEDs!), and look for some others for higher voltages and currents.
|
|
|
|
|
Hi
Will I/O Ports with C# help? I know it's written in C#, but the code won't be too hard to convert to VB, as it will probably be mainly Windows API calls
|
|
|
|
|
well C# can help considering it communicates with parallel ports and you are right there is not much difference, in addition to the point Luc, this motor is only 3v. Basically my project is to create a automatic nut counter where we build a design and we have motor to control the flow of the nuts, so in addition we also have sensors to count how many nuts is passed through, my job is to create a program to count the nuts and displaying them on a website. So the first step in doing this is creating a user interface so the user can actually interact with the program ie start the program via a button. I have already tried using java but it is very hard, I have also tried visual c but there is no facility to create a GUI like there is in visual basic. Any suggestions? thank you for your help so far
|
|
|
|
|
Visual Studio allows you to create GUI apps in any .NET language with the same ease as Visual Basic has offered for decades. Create a new "Windows Application" and drag Controls from the ToolBox to your Form. etc.
What are the steady-state and rush-in currents your 3V motor requires? More than say 20 mA needs electronics or relays.
|
|
|
|
|
I understand what you are saying about Visual Basic regarding the GUI apps they have, I am aware of that. However visual c uses .cpp files and when i open them in visual studio I Cannot create any GUI as I don't think it is compatible with it. So as a result I have decided that I am going to use Visual Basic for my project. With regards to your question about the motor, I honestly don't know what currents are needed as I am part of the software team, I only know that it is a general purpose motor which is 3V DC. Can you send me the link with the LED example as this might help me in implementing my project
|
|
|
|
|
Here is a good article about the subject at the community.
http://www.codeproject.com/KB/cs/cspplcds.aspx
Sigurd Johansen
|
|
|
|
|
Hi,
compare data in two database objects into list1 want to, Can you help me fix my errors in the code?
Dim CON1 As New ADODB.Connection
Dim CON2 As New ADODB.Connection
Dim kayit1tablo As New ADODB.Recordset
Dim kayit2tablo As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Private Sub cmdKayitGoster_Click()
On Error Resume Next
Dim i, k, bulunan
aranan1 = CON1.Open & App.Path & "\a.mdb"
aranan2 = CON2.Open & App.Path & "\b.mdb"
rs1.Open "Select * from Master where veri1=" & Val(aranan1), CON1, adOpenKeyset, adLockOptimistic
rs2.Open "Select * from master where veri2=" & Val(aranan2), CON2, adOpenKeyset, adLockOptimistic
For k = 0 To rs1.RecordCount - 1
bulunan = "0"
For i = 0 To rs2.RecordCount - 1
bulunan = "1"
End If
Next
If rs1.RecordCount(k) = rs2.RecordCount(i) Then
Else
List2.AddItem rs(veri1)
End If
Next
End Sub
Private Sub Form_Load()
Set CON1 = New ADODB.Connection
Set CON2 = New ADODB.Connection
CON1.Open "Provider=Microsoft.jet.oledb.4.0; Data Source=" & App.Path & "\a.mdb"
CON2.Open "Provider=Microsoft.jet.oledb.4.0; Data Source=" &
App.Path & "\b.mdb"
kayit1tablo.Open "Select * from Master", CON1, adOpenKeyset, adLockOptimistic
kayit2tablo.Open "Select * from Master", CON2, adOpenKeyset, adLockOptimistic
End Sub
|
|
|
|
|
You can have another selection
rs3.Open "Select * from master where veri1<>veri2, CON2, adOpenKeyset, adLockOptimistic
For u = 0 To rs3.RecordCount - 1
List2.AddItem rs3(veri1)
Next
Something, like the above...
|
|
|
|
|