- Код: Выделить всё
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
OrgCode = Me.Session("OrgCode")
OrgName = OrgNameText.Text()
OrgAdr = OrgAdrText.Text()
OrgPers = OrgPersText.Text()
MngName = MngNameText.Text()
' изменение записи
Dim SelSQLOrgName As String = "UPDATE clNames OrgName='12345' where OrgCode='1001'"
Dim conUPD As New System.Data.OleDb.OleDbConnection()
Dim cmdName As New System.Data.OleDb.OleDbCommand(SelSQLOrgName, conUPD)
'Dim SelOrgAdr As String = "UPDATE clNames SET ClientName='" & cnFirm & "' WHERE id_Client=" & CInt(Request("id"))
'Dim SelSQLOrgPers As String = "UPDATE clNames SET ClientPhone='" & cnTel & "' WHERE id_Client=" & CInt(Request("id"))
'Dim SelSQLMngName As String = "UPDATE clNames SET ClientDiscount='" & cnDis & "' WHERE id_Client=" & CInt(Request("id"))
conUPD.ConnectionString = ConnectionString
conUPD.Open()
cmdName.ExecuteNonQuery()
conUPD.Close()
End Sub
вот такой вот код
там закометнины неиспользуемые строчки - они правельные или нет?
вроде все по рабочим примерам сделано , в чем там проблема можетбыть ???

