31. august 2001 - 13:42Der er
8 kommentarer og 1 løsning
Erstat tom felt i database.
Jeg ahr forsøgt at lave et stykke kode der kan erstatte en tomt felt med data i en database.
Kan ikke få det til at funker ..
<% Set myConn = Server.CreateObject(\"ADODB.Connection\") myConn.Open \"DATABSESTI\" Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"SELECT * FROM users \" rs.Open strSQL, myConn, 1, 3 If Not (rs.BOF Or rs.EOF) Then %> felter udfyldt <% do while not rs.eof %> <% cpr = rs(\"cpr\")
if cpr = \"10-10-1000\" then cpr = \"01-01-1111\"
rs(\"cpr\") = cpr rs.Update
rs.movenext loop
Set rs = Nothing myConn.Close Set myConn = Nothing end if %>
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
<% Set myConn = Server.CreateObject(\"ADODB.Connection\") myConn.Open \"DATABSESTI\" Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"SELECT * FROM users \" rs.Open strSQL, myConn, 1, 3 If Not (rs.BOF Or rs.EOF) Then %> felter udfyldt <% do while not rs.eof %> <% cpr = rs(\"cpr\")
if cpr = \"\" then cpr = \"01-01-1111\"
rs(\"cpr\") = cpr rs.Update
rs.movenext loop
Set rs = Nothing myConn.Close Set myConn = Nothing end if %>
<% Set myConn = Server.CreateObject(\"ADODB.Connection\") myConn.Open \"DATABSESTI\" Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"SELECT * FROM users \" rs.Open strSQL, myConn, 1, 3 If Not (rs.BOF Or rs.EOF) Then Response.Write \"felter udfyldt\" do while not rs.eof cpr = rs(\"cpr\") If LEN(Trim(cpr)<= 0 Then cpr = \"01-01-1111\" End If rs(\"cpr\") = cpr rs.Update rs.movenext loop End If rs.Close Set rs = Nothing myConn.Close Set myConn = Nothing %>
<% Set myConn = Server.CreateObject(\"ADODB.Connection\") myConn.Open DATABSESTI Set rs = Server.CreateObject(\"ADODB.RecordSet\") strSQL = \"SELECT * FROM Users \" rs.Open strSQL, myConn, 1, 3 If Not (rs.BOF Or rs.EOF) Then Response.Write \"felter udfyldt\" do while not rs.eof
cpr = rs(\"cpr\")
if IsNull(cpr) then cpr = \"01-01-1111\"
rs(\"cpr\") = cpr rs.Update
rs.movenext loop
Set rs = Nothing myConn.Close Set myConn = Nothing
end if%>
Men får denne fejl
Microsoft OLE DB Provider for ODBC Drivers error \'80004005\'
[Microsoft][ODBC Microsoft Access Driver]Datetime field overflow (null)
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.
