Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

Error in DataBase

Hai,

I have created some fields in Predefined Screen by using coding....

My code:

If TableName.StartsWith("@") = False Then

If Not Me.UDFExists(TableName, FieldName) Then

Dim v_UserField As SAPbobsCOM.UserFieldsMD

v_UserField = com.GetBusinessObject(SAPbobsCOM.BoObjectTypes.oUserFields)

v_UserField.TableName = TableName

v_UserField.Name = FieldName

v_UserField.Description = FieldDescription

v_UserField.Type = type

If type <> SAPbobsCOM.BoFieldTypes.db_Date Then

If size <> 0 Then

v_UserField.Size = size

End If

End If

If subType <> SAPbobsCOM.BoFldSubTypes.st_None Then

v_UserField.SubType = subType

End If

If LinkedTable <> "" Then v_UserField.LinkedTable = LinkedTable

v_RetVal = v_UserField.Add()

If v_RetVal <> 0 Then

com.GetLastError(v_ErrCode, v_ErrMsg)

app.StatusBar.SetText("Failed to add UserField " & FieldDescription & " - " & v_ErrCode & " " & v_ErrMsg, SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Error)

Return False

Else

app.StatusBar.SetText(" & TableName & - " & FieldDescription & " added successfully!!!", SAPbouiCOM.BoMessageTime.bmt_Short, SAPbouiCOM.BoStatusBarMessageType.smt_Success)

Return True

End If

System.Runtime.InteropServices.Marshal.ReleaseComObject(v_UserField)

v_UserField = Nothing

Else

Return False

End If

End If

If it comes to line: v_RetVal = v_UserField.Add()

The value of v_RetVal is in negative so it shows the error following

1). [Microsoft][ODBC SQL Server Driver][SQL Server]Could not allocate space for object 'sys.syshobtcolumns'.'clust' in database 'SBODemo_India' because the 'PRIMARY' filegroup is full. Create disk space by deleting unneeded files, dropping objects in the fil

Does anyone have idea?.........

Regards,

Anitha

Former Member
Not what you were looking for? View more on this topic or Ask a question