E
edb
Hi all,
i have posted this in another message board and
desparately need help .
Here is a piece of my code. Please keep in mind my first
if-then code is strictly for validation. Once it has been
validated, I create this variable and gather them together
into an insert if-then statement. See below ...
'Declare Variables
'Dim ClientCountriesInfo as Integer
'Countries Validate
If (LstCountries.SelectedItem.Value = "Select a Country")
Then
If (ValCountry = "") Then
LblErrMain.Visible = True
LblErr6.Visible = True
Else
LblErrMain.Visible = False
LblErr6.Visible = False
'Create a variable to manage single or multiple posts to
SQL
'ClientCountriesInfo = 1
Dim ClientCountriesInfo As Integer = 1
End If
Else
LblErrMain.Visible = False
LblErr6.Visible = False
End If
'************************** DATA POST PROCESS
************************
If ClientCustInfo + ClientProdAreaInfo +
ClientProgDescInfo + ClientProductInfo +
ClientPlatformInfo + ClientCountriesInfo = 6 Then
'Post info to table and post new ID to Master Table
Dim strMainTblCnn As String
Dim sp_name As String
Dim comm As New SqlCommand
' The Connection string
strMainTblCnn = "DATABASE=POTATOS;UID=All;PWD=Rotten"
Dim conn As New SqlConnection(strMainTblCnn)
Dim ds As New DataSet
Dim DataAdapter As New SqlDataAdapter(comm)
Please help
thank you,
edb
i have posted this in another message board and
desparately need help .
Here is a piece of my code. Please keep in mind my first
if-then code is strictly for validation. Once it has been
validated, I create this variable and gather them together
into an insert if-then statement. See below ...
'Declare Variables
'Dim ClientCountriesInfo as Integer
'Countries Validate
If (LstCountries.SelectedItem.Value = "Select a Country")
Then
If (ValCountry = "") Then
LblErrMain.Visible = True
LblErr6.Visible = True
Else
LblErrMain.Visible = False
LblErr6.Visible = False
'Create a variable to manage single or multiple posts to
SQL
'ClientCountriesInfo = 1
Dim ClientCountriesInfo As Integer = 1
End If
Else
LblErrMain.Visible = False
LblErr6.Visible = False
End If
'************************** DATA POST PROCESS
************************
If ClientCustInfo + ClientProdAreaInfo +
ClientProgDescInfo + ClientProductInfo +
ClientPlatformInfo + ClientCountriesInfo = 6 Then
'Post info to table and post new ID to Master Table
Dim strMainTblCnn As String
Dim sp_name As String
Dim comm As New SqlCommand
' The Connection string
strMainTblCnn = "DATABASE=POTATOS;UID=All;PWD=Rotten"
Dim conn As New SqlConnection(strMainTblCnn)
Dim ds As New DataSet
Dim DataAdapter As New SqlDataAdapter(comm)
Please help
thank you,
edb