Jeg får følgende fejl når jeg kører denne funktion
Sub AddToBase2(ByVal sender As Object, ByVal e As EventArgs)
Dim cn As Data.OleDb.OleDbConnection Dim cmd As Data.OleDb.OleDbCommand Dim str As String
cn = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA Source=E:\Documents\My documents\dotnet\WebSite11_ver2_20070104_0014\db\database.mdb") cn.Open() str = "UPDATE DB set companyname='"& companyname.Text &"', campaignname='"&campaignname.Text&"' where id=1" 'string stores the command and CInt is used to convert number to string cmd = New Data.OleDb.OleDbCommand(str, cn) cmd.ExecuteNonQuery()
End Sub
Jeg har to felter som jeg gerne vil gemme data af og de hedder campaignname og companyname.
Med kunstig intelligens skaber HP’s nye OmniBook X 14 en unik og skræddersyet brugeroplevelse målrettet dem, der ønsker høj ydeevne og intelligente funktioner
Partial Class _Default Inherits System.Web.UI.Page
Sub AddToBase2(ByVal sender As Object, ByVal e As EventArgs)
Dim companyname As TextBox Dim campaignname As TextBox
Dim cn As Data.OleDb.OleDbConnection Dim cmd As Data.OleDb.OleDbCommand Dim str As String
cn = New Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DATA Source=E:\Documents\My documents\dotnet\WebSite11_ver2_20070104_0014\db\database.mdb") cn.Open() str = "UPDATE DB set companyname='" & companyname.Text &"',campaignname='"& campaignname.Text &"' where id=1" 'string stores the command and CInt is used to convert number to string cmd = New Data.OleDb.OleDbCommand(str, cn) cmd.ExecuteNonQuery()
Jeg løste det ved at arbejde videre på den computer hvor jeg havde startet. Der var åbenbart gået et eller andet galt ved overførelsen eller noget i den retning. Jeg får nu fekl i følgende linie
str = "UPDATE DB set [companyname]='" & companyname.Text & "',[campaignname]='" & campaignname.Text & "' where id=1"
Det virker som om at den finder et forkert felt som ikke indeholder noget og derfor laver fejl i sql sætningen da den er NULL.
Public companyname As TextBox = New TextBox Public campaignname As TextBox = New TextBox
sidstenævnte er tomme.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.