mpsystemsservices / codebase-for-dbf Goto Github PK

Has or will the source code to the server or service part ever been released (I think it was s4server.exe or s4service.exe ? By the time I got ready to buy it Sequiter was gone. Thanks for posting this, the x64 conversion was a giant help.

I would appreciate if anyone could help me please, I've taken over the support of a Codebase 6 system, a system I'm not very familiar with, and I'm having trouble setting myself up as a user. I have created my account using Account Manager in CBAdmin and have set a password, but when I try to log into the system using my name I get an error:
Invalid Password Authorization Error (access denied)
code4userConnect

I know that my username is recognised because if I put a random name that's not set up, I get a different error "Invalid UserID Authorization Error", but I don't get that for my own name.

I've tried changing my password several times, tried setting my password to be the same as another user with whose name I can get access, but nothing works.

I'm wondering if there a need to flush the password update through when it's been updated or something like that? Any pointers appreciated.

I didn't find the example program
may admin or someone show it

thanks

Hi,

Do you know if Unicode characters are supported in database fields (dBase 4). We are trying to update the database from Windows C++ application.

Thank you in advance,
Diana

What is the correct way to declare f4str and f4strMemo? I am trying to write the ShowData example in Visual Basic .NET. It is working (although I had to Remove integer overflow checks in Advanced Compile Options) up to the point when it tries to retrieve the value of the field. It then spends a few seconds in the function and then terminates with no error message. See entire form below:

Option Explicit On
Imports System.Runtime.InteropServices

Public Class Form1
    Declare Function code4init Lib "C4DLL.dll" Alias "code4initVB" () As Integer
    Declare Function code4initUndo Lib "C4DLL.dll" (ByVal cb As Integer) As Integer
    Declare Function d4open Lib "C4DLL.dll" (ByVal cb As Integer, ByVal fileName As String) As Integer
    Declare Function d4close Lib "C4DLL.dll" (ByVal db As Integer) As Long
    Declare Function code4errorCode Lib "C4DLL.dll" (ByVal cb As Integer, ByVal errCode As Integer) As Integer
    Declare Function d4top Lib "C4DLL.dll" (ByVal db As Integer) As Integer
    Declare Function d4recCount Lib "C4DLL.dll" Alias "d4recCountDo" (ByVal db As Integer) As Integer
    Declare Function d4numFields Lib "C4DLL.dll" (ByVal db As Integer) As Short
    Declare Function d4fieldJ Lib "C4DLL.dll" (ByVal db As Integer, ByVal j As Short) As Integer
    Declare Unicode Function f4memoStr Lib "C4DLL.dll" (ByVal fldPtr As Integer) As String
    Declare Function f4str Lib "C4DLL.dll" (ByVal fldPtr As Integer) As String
    Declare Function d4skip Lib "C4DLL.dll" (ByVal db As Integer, ByVal recsToSkip As Integer) As Integer
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'ShowData sample code

        Dim cb As Integer
        Dim db As Integer
        Dim fldPtr As Integer
        Dim rc As Integer
        Dim fPath As String

        cb = code4init()                     'Initialize CodeBase
        If cb = 0 Then
            MsgBox("code4init( ) failed")
            Exit Sub
        End If
        'Code4initUndo(cb)
        'Exit Sub

        fPath = "c:\users\colindjmi\downloads\CodeBase\"

        db = d4open(cb, fPath + "SHOWDATA")        'Open File

        If db = 0 Then
            MsgBox("Open Failed")
            rc = code4errorCode(cb, 0)                    'Reset error code
            Exit Sub
        End If

        Dim numRecs As Integer
        Dim numFields As Integer
        Dim i As Short, j As Short
        Dim strField As String

        rc = d4top(db)
        numRecs = d4recCount(db)
        numFields = d4numFields(db)
        For i = 1 To numRecs                  'Loop through records
            For j = 1 To numFields                    'Loop through each field
                fldPtr = d4fieldJ(db, j)                     'Get Field Pointer
                strField = f4str(fldPtr)               'Print field contents
            Next j
            'Print("")
            rc = d4skip(db, 1)                              'Blank lines between recs.
        Next i                                       'Go to next record

        rc = d4close(db)
        rc = code4initUndo(cb)              'Close everything and free resources

    End Sub
End Class

By the way, there does not seem to be a CODEBASE.BAS file in the project. Is one available?

We just blew three weeks trying to compile it for 64-bit. The code is not ready for 64-bit, despite there being a S464BIT switch. Various 'long's become 8 bytes, pushes the dBase header records from 32 to 40 bytes.

Use SQLite instead.

I'm wondering whether anyone else has had a user experience this error:

CODEBASE ERROR
Error#: -120
Error #: 90619
Writing to File
file4write
(followed by the UNC data file path to a small but commonly used DBF file in this system)

The documentation indicates that a -120 indicates that the "disk" is full. Yet that was not the case; the user had plenty of free space. I'm not finding any reference to the suberror 90619 either in the documentation nor in the source code. This user has been experiencing other types of more or less random error messages (-20, -70's, etc.) as well. Running on a wired network, all new/newish Windows 10 PC's, workgroup configuration, with usually just three or so active users. One of the users does actively use the same PC where the software is installed. Their IT support is suspecting some connectivity issues with IPv6 and plans to disable it. Anti-virus scanning could be part of the issue and we have recommended exclusions. No backup is happening while the system is in use, although they are doing some kind of Google Drive synch.

Thanks!

Tony Frates
Addsum Business Software, Inc.

CodeBase65Release3BugFixes is an old html file that goes back over a decade, however, the newest fixes to the code are not applied, starting with bug fix 177. These need to be applied over 4 files. I've done the work, now I just need the access to push up the changes.

Is it possible to create a table with Integer(AutoInc) field?

I am looking for examples where CodeBase is called from VB.NET or the vb6 file codebase.bas adapted for VB.NET. It exists?

I have doubts of how convert the types of parameter "as any" from vb6 to vb.net.

If someone have samples calling CODEBASE from c# its also wellcome.

Using CodeBase client/server version since 2000. I'm looking for last releases.

Last version that I've is s4server 1.0.0.1 from 2003

Somebody can aid ?