Hej!

Håller på att konvertera access databaser till mysql. Jag hittade ett program på nätet. Spectralcore Full convert 3.1 Trial 30 dagar. www.spectralcore.com Innan jag köper programmet skulle jag gärna vilja ha lite tips på andra program och rekommendationer.

mvh
Brännbukt

Kolla in MySQL Migration Toolkit: http://www.mysql.com/products/tools/migration-toolkit/

/Johan

Tack för tipset!

Jag fick en del problem bla med omröstningen.

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Program type out of range

/DrawPoll.asp, line 87

' Denna fil innehåller subfunktionen som ritar ut en poll
' Samt Subfunktionen för att visa resultatet och subfunktionen för att kunna rösta.
' Sub:en ritar ut frågan som default, svaret ritas ut om en
' querystring med namnet draw och värdet result har skickats med.

Sub drawPoll(pollId)

	' Hämta informationen om denna poll
	strSQL = "SELECT q.qQuestion,q.qId FROM tblQuestions q, tblPolls p WHERE p.qId = q.qId AND p.pId = " & pollId
	Set objCon = openCon()
	Set objRs = objCon.Execute(strSQL)
	
	If objRs.Eof Then
	
		Response.Write("Frågan finns inte!")
		Exit Sub
		
	Else
	
		strQuestion = objRs("qQuestion")
		intQid = objRs("qId")
		
	End If
	
	Set objRs = Nothing
	
	Response.Write("<table width='100%' cellpadding=0 cellspacing=0>")
	Response.Write("<tr><td> <p><b>" & strQuestion & "</b></p><p>")
	
	' Lista alla svarsalternativ
	strSQL = "SELECT aId,aText FROM tblAlternatives WHERE qId = " & intQid
	Set objRs = objCon.Execute(strSQL)
	
	Do Until objRs.Eof
	
		Response.Write("" & objRs("aText") & "<br>")
		objRs.MoveNext
		
	Loop
	
	Set objRs = Nothing
	closeCon(objCon)
	
	Response.Write("<p>RESULTAT</p>")
	
	Response.Write("</td></tr></table>")

End Sub


Sub addVote(votedAlternative)

	' Lägg till lite säkerhet mot dubbelröstning
	bolVoted = Request.Cookies("kalle")(votedAlternative)
	If cBool(bolVoted) Then
	
		' Redan röstat
	
	Else
	
	Response.Cookies("kalle")(votedAlternative) = true
	Response.Cookies("kalle").Expires = DateAdd("h",intCookieTime,Now())
	
	strIp = Request.ServerVariables("REMOTE_ADDR")

	strSQL = "UPDATE tblAlternatives SET aNrVotes=aNrVotes+1, aIp = '" & strIp & "' WHERE aId = " & votedAlternative
	Set objCon = openCon()
	objCon.Execute(strSQL)
	closeCon(objCon)
	
	End If
	
	Response.Redirect(Request.ServerVariables("SCRIPT_NAME") & "?show=result")

End Sub


Sub drawResult(pollId)

	' Beräkna antalet röster:
	strSQL = "SELECT SUM(a.aNrVotes) FROM tblAlternatives a, tblPolls p WHERE p.qId = a.qId AND p.pId = " & pollId
	Set objCon = openCon()
	Set objRs = objCon.Execute(strSQL)
	
	intTotalVotes = objRS(0)
	
	Set objRs = Nothing
	
	' Rita ut staplar
	strSQL = "SELECT a.aNrVotes,a.aText FROM tblAlternatives a, tblPolls p WHERE p.qId = a.qId AND p.pId = " & pollId
	Set objRs = objCon.Execute(strSQL)
	
	Do Until objRs.Eof
	
		If intTotalVotes = 0 Then
			intProcent = 0
			strWidth = 0
		Else
			intProcent = Round((objRs("aNrVotes")/intTotalVotes)*100,1)
			strWidth = Round((objRs("aNrVotes")/intTotalVotes)*150,1)
		End If
		Response.Write(objRs("aText") & " - " & objRs("aNrVotes") & " (" & intProcent & "%)<br>")
		Response.Write("<img src='" & strPicturePath & "' height='" & strHeight & "' width='" & intProcent & "%'><br>")
		objRs.MoveNext
		
	Loop
	
	Set objRS = Nothing
	closeCon(objCon)
	
	Response.Write("<p>TILLBAKA</p>")

End Sub

Vilken rad är rad 87? I koden du skickade med är rad 87 en tom rad...

/Johan

Rad 87

intTotalVotes=objRS(0)

Hej igen!

Gjorde en ändring "SELECT SUM(a.aNrVotes) till "SELECT SUM('a.aNrVotes') med resultatet att drawPoll ritar ut antalet röster men inte i %

<code>Sub drawResult(pollId)

' Beräkna antalet röster:
strSQL = "SELECT SUM('a.aNrVotes') FROM tblAlternatives a, tblPolls p WHERE p.qId = a.qId AND p.pId = " & pollId
Set objCon = openCon()
Set objRs = objCon.Execute(strSQL)

intTotalVotes = objRS(0)

Set objRs = Nothing

' Rita ut staplar
strSQL = "SELECT a.aNrVotes,a.aText FROM tblAlternatives a, tblPolls p WHERE p.qId = a.qId AND p.pId = " & pollId
Set objRs = objCon.Execute(strSQL)

Do Until objRs.Eof

If intTotalVotes = 0 Then
intProcent = 0
strWidth = 0
Else
intProcent = Round((objRs("aNrVotes")/intTotalVotes)*100,1)
strWidth = Round((objRs("aNrVotes")/intTotalVotes)*150,1)
End If
Response.Write(objRs("aText") & " - " & objRs("aNrVotes") & " (" & intProcent & "%)<br>")
Response.Write("<img src='" & strPicturePath & "' height='" & strHeight & "' width='" & intProcent & "%'><br>")
objRs.MoveNext

Loop

Set objRS = Nothing
closeCon(objCon)

Response.Write("<p>TILLBAKA</p>")

End Sub
</code>

Har någon något btips?

mvh
Brännbukt