Such as:
<form>
<Table>
<Tr><Td>Company:</Td><Td>TextBoxCompany</Td></Tr>
</Table>
</form
I can not seem to get an insert command to write to the database if I place the text boxes for input in the cells of a table. If I do the same form without the table the insert command works just fine.
What am I missing? Is there a better way to build data collection forms?
Thanks in advance for helping!
Scottyou can use any html you want inside the form.
what error are you taling about, could you be more specific?
Can you show us the textbox declaration and the update code.
Simon
Thanks for responding Christian.
Since I posted I have build a simple form, tested it and then moved the input boxes into a form. And that works as it should.
The project collects employment data for association work. In testing, the application tells me that the post is sucessful, but the record is not written to the database. Because others will use the data in Excel I am using Access 2000.
Here is the code:
Sub ButtonSubmit_Click(sender As Object, e As EventArgs)
Dim Company = Server.HtmlEncode(TextCompany.Text)
Dim FacilityName = Server.HtmlEncode(TextFacilityName.Text)
Dim Address = Server.HtmlEncode(TextAddress.Text)
Dim City = Server.HtmlEncode(TextCity.Text)
Dim State = (DropDownListState.SelectedItem.Value)
Dim FacilityZip = Server.HtmlEncode(TextFacilityZip.Text)
Dim NumberEmployees = Server.HtmlEncode(TextNumberEmployees.Text)
Dim Zip1 = Server.HtmlEncode(TextZip1.Text)
Dim Zip2 = Server.HtmlEncode(TextZip2.Text)
Dim Zip3 = Server.HtmlEncode(TextZip3.Text)
Dim Zip4 = Server.HtmlEncode(TextZip4.Text)
Dim Zip5 = Server.HtmlEncode(TextZip5.Text)
Dim Zip6 = Server.HtmlEncode(TextZip6.Text)
Dim PropertyTaxes = Server.HtmlEncode(TextPropertyTaxes.Text)
Dim WithholdingTaxState = Server.HtmlEncode(TextWithholdingTaxState.Text)
Dim WithholdingTaxFederal = Server.HtmlEncode(TextWithholdingTaxFederal.Text)
Dim CharitableContribution = Server.HtmlEncode(TextCharitableContribution.Text)
Dim UserName = Server.HtmlEncode(TextCharitableContribution.Text)
Dim Pwd = Server.HtmlEncode(TextPassword.Text)
Dim Timestamp As DateTime
Timestamp = Now
InsertRecord(Company, FacilityName, Address, City, State, FacilityZip, _
NumberEmployees, Zip1, Zip2, Zip3, Zip4, Zip5, Zip6, PropertyTaxes, _
WithholdingTaxState, WithholdingTaxFederal, CharitableContribution, _
UserName, Pwd, Timestamp)
End Sub
Function InsertRecord( _
ByVal company As String, _
ByVal facilityName As String, _
ByVal address As String, _
ByVal city As String, _
ByVal state As String, _
ByVal facilityZip As String, _
ByVal numberEmployees As String, _
ByVal zip1 As String, _
ByVal zip2 As String, _
ByVal zip3 As String, _
ByVal zip4 As String, _
ByVal zip5 As String, _
ByVal zip6 As String, _
ByVal propertyTaxes As String, _
ByVal withholdingTaxState As String, _
ByVal withholdingTaxFederal As String, _
ByVal charitableContribution As String, _
ByVal userName As String, _
ByVal pwd As String, _
ByVal timestamp As Date) As Integer
Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Inetpub\wwwr"& _
"oot\Bifma\data\data.mdb"
Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)
Dim queryString As String = "INSERT INTO [data] ([Company], [FacilityName], [Address], [City], [State], [Facil"& _
"ityZip], [NumberEmployees], [Zip1], [Zip2], [Zip3], [Zip4], [Zip5], [Zip6], [Pro"& _
"pertyTaxes], [WithholdingTaxState], [WithholdingTaxFederal], [CharitableContribu"& _
"tion], [UserName], [Pwd], [Timestamp]) VALUES (@.Company, @.FacilityName, @.Address"& _
", @.City, @.State, @.FacilityZip, @.NumberEmployees, @.Zip1, @.Zip2, @.Zip3, @.Zip4, @.Zi"& _
"p5, @.Zip6, @.PropertyTaxes, @.WithholdingTaxState, @.WithholdingTaxFederal, @.Charit"& _
"ableContribution, @.UserName, @.Pwd, @.Timestamp)"
Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dbParam_company As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_company.ParameterName = "@.Company"
dbParam_company.Value = company
dbParam_company.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_company)
Dim dbParam_facilityName As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_facilityName.ParameterName = "@.FacilityName"
dbParam_facilityName.Value = facilityName
dbParam_facilityName.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_facilityName)
Dim dbParam_address As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_address.ParameterName = "@.Address"
dbParam_address.Value = address
dbParam_address.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_address)
Dim dbParam_city As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_city.ParameterName = "@.City"
dbParam_city.Value = city
dbParam_city.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_city)
Dim dbParam_state As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_state.ParameterName = "@.State"
dbParam_state.Value = state
dbParam_state.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_state)
Dim dbParam_facilityZip As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_facilityZip.ParameterName = "@.FacilityZip"
dbParam_facilityZip.Value = facilityZip
dbParam_facilityZip.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_facilityZip)
Dim dbParam_numberEmployees As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_numberEmployees.ParameterName = "@.NumberEmployees"
dbParam_numberEmployees.Value = numberEmployees
dbParam_numberEmployees.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_numberEmployees)
Dim dbParam_zip1 As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_zip1.ParameterName = "@.Zip1"
dbParam_zip1.Value = zip1
dbParam_zip1.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_zip1)
Dim dbParam_zip2 As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_zip2.ParameterName = "@.Zip2"
dbParam_zip2.Value = zip2
dbParam_zip2.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_zip2)
Dim dbParam_zip3 As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_zip3.ParameterName = "@.Zip3"
dbParam_zip3.Value = zip3
dbParam_zip3.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_zip3)
Dim dbParam_zip4 As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_zip4.ParameterName = "@.Zip4"
dbParam_zip4.Value = zip4
dbParam_zip4.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_zip4)
Dim dbParam_zip5 As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_zip5.ParameterName = "@.Zip5"
dbParam_zip5.Value = zip5
dbParam_zip5.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_zip5)
Dim dbParam_zip6 As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_zip6.ParameterName = "@.Zip6"
dbParam_zip6.Value = zip6
dbParam_zip6.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_zip6)
Dim dbParam_propertyTaxes As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_propertyTaxes.ParameterName = "@.PropertyTaxes"
dbParam_propertyTaxes.Value = propertyTaxes
dbParam_propertyTaxes.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_propertyTaxes)
Dim dbParam_withholdingTaxState As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_withholdingTaxState.ParameterName = "@.WithholdingTaxState"
dbParam_withholdingTaxState.Value = withholdingTaxState
dbParam_withholdingTaxState.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_withholdingTaxState)
Dim dbParam_withholdingTaxFederal As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_withholdingTaxFederal.ParameterName = "@.WithholdingTaxFederal"
dbParam_withholdingTaxFederal.Value = withholdingTaxFederal
dbParam_withholdingTaxFederal.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_withholdingTaxFederal)
Dim dbParam_charitableContribution As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_charitableContribution.ParameterName = "@.CharitableContribution"
dbParam_charitableContribution.Value = charitableContribution
dbParam_charitableContribution.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_charitableContribution)
Dim dbParam_userName As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_userName.ParameterName = "@.UserName"
dbParam_userName.Value = userName
dbParam_userName.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_userName)
Dim dbParam_pwd As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_pwd.ParameterName = "@.Pwd"
dbParam_pwd.Value = pwd
dbParam_pwd.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_pwd)
Dim dbParam_timestamp As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
dbParam_timestamp.ParameterName = "@.Timestamp"
dbParam_timestamp.Value = timestamp
dbParam_timestamp.DbType = System.Data.DbType.DateTime
dbCommand.Parameters.Add(dbParam_timestamp)
Dim rowsAffected As Integer = 0
dbConnection.Open
Try
rowsAffected = dbCommand.ExecuteNonQuery
LabelConfirmation.Text = "Thank you! Your data entry was sucessful."
'ButtonSubmit.Enabled = False
Catch
LabelConfirmation.Text = "Sorry there was a problem with your entry. Please Contact Brad or Mike"
'
Finally
dbConnection.Close
End Try
Return rowsAffected
End Function
Thank You for helping.
Scott
Fixed. Appears I had tried to use the reservered word "Timpstamp" as DateTime = Now.
0 comments:
Post a Comment