$5 to the person that can fix this(VB)

[DTV_Janus]

I NEED to have this program fixed, i cant get it to write to this stupid access database file :angry:

I will pay using paypal to the person that can get it to write to the rps.mdb file

One note, don't convert the access file to 2000, leave it in its current formatting..

Any questions PM me.

Thanks

Steve

help_me_neowin_.zip

[DTV_Janus]

Come on, 5$ :)

it should be easy

[Steven]

I've forgotten how to code VB6. :s

[PseudoRandomDragon]

Now thats more like it. :D

[beacon]

Yeah i have .net and it wants to convert it.

If it's any help dont use the Data Control it sucks.

Perhaps post whats going wrong and where?

[matt74441]

I've forgotten how to code VB6. :s

Same here. I haven't made a VB6 application in over three years.

Sorry I can't be of any help.

[DTV_Janus]

The point where it is wrong is (i think) the writing to the database

"Private Sub cmdWrite_Click()

'write results to database

'Set Adodc1 = New ADODB.Connection

If R1_Win = 5 Then

Adodc1.RecordSource = "INSERT into rps (RealName1, RealName2, VictorRealName, Losses)" & _

"VALUES ('" & Real1 & "', '" & Real2 & "', '" & Winner & "', " & R2_Win & ")"

Else

Adodc1.RecordSource = "INSERT into rps (RealName1, RealName2, VictorRealName, Losses)" & _

"VALUES ('" & Real1 & "', '" & Real2 & "', '" & Winner & "', " & R1_Win & ")"

End If

'display results were written

MsgBox "Results Written to rps.mdb", vbInformation, "Database Write"

End Sub

If you know VB this should be an easy problem

I'm just to retarted to get it right

I am TOTALLY serious about the money too, I really need this fixed

-steve

[DTV_Janus]

btw that is on frmStats...

[azcodemonkey]

You need to test your strings for null values. Real1 and Real2 come up emtpy each time for me.

       Dim adoCmd As ADODB.Command
        Dim adoConn As ADODB.Connection
        Set adoConn = New ADODB.Connection
        adoConn.ConnectionString = Adodc1.ConnectionString
        adoConn.Open
        Set adoCmd = New ADODB.Command
        
        adoCmd.ActiveConnection = adoConn
        If Real1 = "" Then
            Real1 = "n/a"
        End If
        
        If Real2 = "" Then
            Real2 = "n/a"
        End If
        
        If R1_Win = 5 Then
            adoCmd.CommandText = "INSERT into rps (RealName1, RealName2, VictorRealName, Losses)" & _
            "VALUES ('" & Real1 & "', '" & Real2 & "', '" & Winner & "', " & R2_Win & ")"
        Else
            adoCmd.CommandText = "INSERT into rps (RealName1, RealName2, VictorRealName, Losses)" & _
            "VALUES ('" & Real1 & "', '" & Real2 & "', '" & Winner & "', " & R1_Win & ")"
        End If
        
        adoCmd.Execute
        'display results were written
        MsgBox "Results Written to rps.mdb", vbInformation, "Database Write"
        adoConn.Close
        Adodc1.Refresh

[DTV_Janus]

Ok i fixed that problem but it still won't write it to the access file, im so lost

[azcodemonkey]

Could you post what you fixed? The modifications I made worked for me.

[Colin-uk Veteran]

$5 to the person that can fix this

www.scriptlance.com

[mark03]

well surely first you want to set up a data environment and get your connection the the table?

[erf]

I've done it :)

RPS.rar